- dancer-users - lists.preshweb.co.uk

D1 => D2 request->referer in LIST context has changed
by Gabor Szabo 13 Dec '14

13 Dec '14

If there is *no* referrer then @z = request->referer; used to return an 'undef' Now it returns and empty list. This blew up in my code that had %h = ( ref => request->referer, .... ); so I'll have to replace that code with %h = ( ref => scalar request->referer, .... ); or with %h = ( ref => ( request->referer // ''), .... ); I understand that the D2 behaves "more correctly" than D1 did, but I'd like to verify. Is this change is also intentional? Could you point out where else has this change happened? regards Gabor

2 1

D1 => D2 The default start_tag and end_tag of Template::Toolkit
by Gabor Szabo 10 Dec '14

10 Dec '14

Hi, In Dancer 1 when I enabled Template::Toolkit it worked immediately as the start_tag and end_tag were <% and %> respectively as the default of the simple template. Do I see correctly that this has changed and now the defaults are [% and %] ? If yes, is this on purpose or is this a bug? Gabor

2 2

template() creates the session
by Gabor Szabo 10 Dec '14

10 Dec '14

Hi, in a Dancer application I have sessions turned on in config.yml If the route calls template(), the session is created and the cookie is sent. If I just "return 42" from the route without calling template(), the session is not created, cookie is not sent. I can force-create the session and the cookie by calling session('anything') but I was wondering, is this behavior (that it is template() that sets the cookie) on purpose? regards Gabor

3 4

Test application failed
by Brilliantov Kirill Vladimirovich 09 Dec '14

09 Dec '14

Hello! Ise use Dancer 1.3132 with perl 5.14.2. $ cat bin/app.pl #!/usr/bin/env perl use Dancer; use Trassa_REST; use Trassa_web; dance; $ cat lib/Trassa_REST.pm package Trassa_REST; use strict; use warnings; use 5.010001; use Dancer q/:syntax/; ........ get qr{/rest (/[\w.]+)? # resource, e.g. node (/[\w.]+)? # command, e.g. stat, or resource id, e.g. 1 (/[\w.]+)? # command for resource id, e.g. page (/[\w.]+)? # page with data, e.g. 1 /? }sx => sub { ......... } 1; $ cat t/002_rest_node_route.t use strict; use warnings; use Test::More q/no_plan/; use Trassa_REST; use Dancer::Test; my @url = ('/rest/node', '/rest/node/help', '/rest/node/status', '/rest/node/page', '/rest/node/page/5', '/rest/node/1/status', '/rest/node/1/page', '/rest/node/1/page/5'); foreach my $i (@url) { route_exists [GET => $i], "a route handler defined for $i"; response_status_is [GET => $i], 200, "response status is 200 for $i"; response_headers_are_deeply [GET => $i], ['Content-Type' => 'text/xml']; } After starting application I try test it: $ bin/app.pl [4366] core @0.000022> loading Dancer::Handler::Standalone handler in /usr/share/perl5/Dancer/Handler.pm l. 48 [4366] core @0.000608> loading handler 'Dancer::Handler::Standalone' in /usr/share/perl5/Dancer.pm l. 493 >> Dancer 1.3132 server 4366 listening on http://0.0.0.0:3000 >> Dancer::Plugin::Database::Core (0.08) >> Dancer::Plugin::Database::Core::Handle (0.02) >> Dancer::Plugin::Database (2.10) == Entering the development dance floor ... $ prove t/ t/001_base.t ............. 1/1 # Failed test 'use Trassa_REST;' # at t/001_base.t line 5. # Tried to use 'Trassa_REST'. # Error: Can't locate Trassa_REST.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl .) at (eval 4) line 2. # BEGIN failed--compilation aborted at (eval 4) line 2. # Looks like you failed 1 test of 1. t/001_base.t ............. Dubious, test returned 1 (wstat 256, 0x100) Failed 1/1 subtests t/002_rest_node_route.t .. Can't locate Trassa_REST.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl .) at t/002_rest_node_route.t line 5. BEGIN failed--compilation aborted at t/002_rest_node_route.t line 5. t/002_rest_node_route.t .. Dubious, test returned 2 (wstat 512, 0x200) No subtests run Test Summary Report ------------------- t/001_base.t (Wstat: 256 Tests: 1 Failed: 1) Failed test: 1 Non-zero exit status: 1 t/002_rest_node_route.t (Wstat: 512 Tests: 0 Failed: 0) Non-zero exit status: 2 Parse errors: No plan found in TAP output Files=2, Tests=1, 0 wallclock secs ( 0.02 usr 0.02 sys + 0.03 cusr 0.01 csys = 0.08 CPU) Result: FAIL $ prove -I lib/ t/ t/001_base.t ............. ok t/002_rest_node_route.t .. 2/? # Failed test 'headers are as expected for GET /rest/node' # at t/002_rest_node_route.t line 20. # Structures begin differing at: # $got->[2] = 'Server' # $expected->[2] = Does not exist # Failed test 'headers are as expected for GET /rest/node/help' # at t/002_rest_node_route.t line 20. # Structures begin differing at: # $got->[2] = 'Server' # $expected->[2] = Does not exist # Failed test 'headers are as expected for GET /rest/node/status' # at t/002_rest_node_route.t line 20. # Structures begin differing at: # $got->[2] = 'Server' # $expected->[2] = Does not exist # Failed test 'headers are as expected for GET /rest/node/page' # at t/002_rest_node_route.t line 20. # Structures begin differing at: # $got->[2] = 'Server' # $expected->[2] = Does not exist # Failed test 'headers are as expected for GET /rest/node/page/5' # at t/002_rest_node_route.t line 20. # Structures begin differing at: # $got->[2] = 'Server' # $expected->[2] = Does not exist # Failed test 'headers are as expected for GET /rest/node/1/status' # at t/002_rest_node_route.t line 20. # Structures begin differing at: # $got->[2] = 'Server' # $expected->[2] = Does not exist # Failed test 'headers are as expected for GET /rest/node/1/page' # at t/002_rest_node_route.t line 20. # Structures begin differing at: # $got->[2] = 'Server' # $expected->[2] = Does not exist # Failed test 'headers are as expected for GET /rest/node/1/page/5' # at t/002_rest_node_route.t line 20. # Structures begin differing at: # $got->[2] = 'Server' # $expected->[2] = Does not exist # Tests were run but no plan was declared and done_testing() was not seen. t/002_rest_node_route.t .. Failed 8/24 subtests Test Summary Report ------------------- t/002_rest_node_route.t (Wstat: 0 Tests: 24 Failed: 8) Failed tests: 3, 6, 9, 12, 15, 18, 21, 24 Parse errors: No plan found in TAP output Files=2, Tests=25, 1 wallclock secs ( 0.04 usr 0.01 sys + 0.46 cusr 0.02 csys = 0.53 CPU) Result: FAIL Why test not found server? Thank you and excuse me for my bad english. -- Best regards, Brilliantov Kirill Vladimirovich

3 4

Re: [dancer-users] Test application failed
by Brilliantov Kirill Vladimirovich 09 Dec '14

09 Dec '14

WK wrote on 12/09/2014 11:33 AM: > 2014-12-09 9:56 GMT+02:00 Brilliantov Kirill Vladimirovich > <brilliantov(a)byterg.ru>: > >> Ok, this is correct for header test. >> But why I get error for roure test route_exists? > > You don't. At least I don't see such errors in your output. Fails only > third test (*deeply). > Sorry, you right. -- Best regards, Brilliantov Kirill Vladimirovich

1 0

New release: Dancer2 0.156000
by Sawyer X 07 Dec '14

07 Dec '14

This one is not a very exciting release, and most of it includes fixing and correcting behavior with serializers, but we're trying to keep up with a quick releases: Thanks goes to: Lennart Hengstmengel, Daniel Böhmer, Dávid Kovács, and yours truly. Changes are as follows: [ BUG FIXES ] * Do not try to deserialize empty content. (Lennart Hengstmengel, Sawyer X) * Do not call serialization hooks when no serialization took place. (Sawyer X) * Be more cautious on undef output from serializer. (Daniel Böhmer, Sawyer X) [ ENHANCEMENTS ] * Add cpanfile when scaffolding a new app. (Dávid Kovács, Sawyer X) * Response "content" attribute no longer stringifies. This should help reduce warnings, odd debugging problems, etc. (Sawyer X) * DSL "uri_for" no longer returns URI object. Instead just the URI. (Sawyer X) [ DOCUMENTATION ] * GH #777: Fix doc for mentioning public dir. (Dávid Kovács, Sawyer X) * GH #787: Document all environment variables. (Sawyer X)

1 0

Static file serving
by Sawyer X 06 Dec '14

06 Dec '14

This was a much-discussed issue. If you aren't following our Advent Calendar, here's a quick link: http://advent.perldancer.org/2014/6

1 0

New Dancer2 on its way to CPAN: 0.155000
by Sawyer X 28 Nov '14

28 Nov '14

Hey everyone! A new version of Dancer2 has been shipped to CPAN! This release doesn't include too many crazy changes, but a few useful ones: * AutoPage handler doesn't serve layouts. * Fixed race condition in engine logging. * No crash on serializers and empty content. * Configurable layouts directory. * Provide all promised logger format options. I'd like to thank all those involved in this release (by chronological order of the changes file): Dávid Kovács, Sawyer X, Lennart Hengstmengel. The changelog is as follows: [ BUG FIXES ] * GH #773, #775: AutoPage handler no longer renders layouts. (Dávid Kovács, Sawyer X) * GH #770: Prevent crazy race condition between the logger engine and other engines. This means engines now call "log_cb" to log. (Sawyer X) * App now has default name to caller package. (Sawyer X) * Serializers will not try to serialize empty content. (Sawyer X) * Lots of cleanups in Core::Request in favor of Plack::Request. (Sawyer X) [ ENHANCEMENTS ] * Layouts directory can be configured using 'layout_dir'. (Sawyer X) * GH #648, #760: Logger format now supports 'h', 'u', 'U', 'h', 'i'. They are documented but weren't really available. (Lennart Hengstmengel) * Serializers having errors will not fail if there is no logger. (Sawyer X) * Create a request object with a single argument of $env, like Plack::Request. (Sawyer X) [ DOCUMENTATION ] * Remove documented hack for static content because we use the middleware now anyway. (Sawyer X) * Document further the difference between splat and megasplat. (Dávid Kovács)

1 0

New trial release of Dancer1 on its way to CPAN
by Yanick Champoux 26 Nov '14

26 Nov '14

Hi all, Dancer 1.3133-TRIAL is on its way to CPAN. If nothing explodes, it'll be promoted to general availability in the second week of December. As usual, the changelog is reproduced below. Also as usual, a huge thank to everybody involved. Y'all rock. :-) Joy, `/anick 1.3133 2014-11-26 [BUG FIXES] - Test was failing for Perl 5.21+ (error message changed). (GH#1073, cpansprout) [DOCUMENTATION] - Mention environment variables in Dancer::Config. (GH#1085, Sniperovitch) - Replace "return send_file" with "send_file". (GH#1089, Ashley Willis) - Fix NAME section for Dancer::Plugin::Ajax. (GH#1090, Ivan Bessarabov) - Fix wrong layout directory in documentation. (GH#1091, olof) [ENHANCEMENTS] - Speedup in the upload of large files. (GH#1092, snakpak) [STATISTICS] - code churn: 6 files changed, 100 insertions(+), 35 deletions(-)

2 1

Testing D2 Plugins calling plugin_setting
by Henk van Oers 24 Nov '14

24 Nov '14

In Dancer2-Plugin-Passphrase I have this test: --- 003_default_settings.t --- use Test::More tests => 3; use strict; use warnings; use Dancer2; use Dancer2::Plugin::Passphrase; my $secret = "Super Secret Squirrel"; my $rfc2307 = passphrase($secret)->generate->rfc2307; like($rfc2307, qr/^{CRYPT}\$2a\$04\$/, 'RFC compliant hash generated'); ok(passphrase($secret)->matches($rfc2307), 'Match plaintext to hash'); ok(!passphrase('WRONG')->matches($rfc2307), 'Incorrect passwords should be rejected'); --- --- CPANtesters use the latest D2, which contains a "croak 'No DSL object found'" See: http://www.cpantesters.org/cpan/report/d4473e02-7246-11e4-ac74-95bbe0bfc7aa How do I add a DSL to this test? Thanks, Henk

4 6