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

D1 => D2 Regex route is not anchored any more
by Gabor Szabo 15 Dec '14

15 Dec '14

I just found an issue with my D1 => D2 migration that broke the Perl Maven site. I think I managed to fix it but I'd like to clarify this: I used to have a route handler like this: get qr{/pro/(.*)} => sub { my ($path) = splat; return $path; }; In D1 this was matching only routes that started with /pro As if there was an implicit ^ at the beginning of the route. Now, in D2, it will match anywhere so it started to match URLs such as /media/pro/file I could fix this by adding an explicit caret to the beginning of the regex: get qr{^/pro/(.*)} => sub { my ($path) = splat; return $path; }; Please confirm if this is really the case or if I just had some other issues? I think this should be added to the migration document with the recommended solution. Could I have solved this with the "prefix" keyword? How? Would that be better? regards Gabor -- Gabor Szabo http://szabgab.com/ Perl Maven http://perlmaven.com/ Perl Weekly http://perlweekly.com/ Phone: +972-54-4624648

2 1

Cannot instal Dancer2-Plugin-Passphrase-v2.0.4 - No DSL object found
by Gabor Szabo 15 Dec '14

15 Dec '14

So I decided I'll try to migrate the code behind the Perl Maven site from Dancer to Dancer2 First thing was to install Dancer2 which went fine. The second was to install Dancer2-Plugin-Passphrase I got the following error.: Anyone with a quick suggestion how to solve this? cpanm (App::cpanminus) 1.6937 on perl 5.020001 built for darwin-thread-multi-2level Work directory is /Users/gabor/.cpanm/work/1418214682.4823 You have make /usr/bin/make You have LWP 6.08 You have /usr/bin/tar: bsdtar 2.8.3 - libarchive 2.8.3 You have /usr/bin/unzip Searching Dancer2::Plugin::Passphrase on cpanmetadb ... --> Working on Dancer2::Plugin::Passphrase Fetching http://www.cpan.org/authors/id/H/HV/HVOERS/Dancer2-Plugin-Passphrase-2.0.4.… -> OK Unpacking Dancer2-Plugin-Passphrase-2.0.4.tar.gz Entering Dancer2-Plugin-Passphrase-2.0.4 Checking configure dependencies from META.json Checking if you have ExtUtils::MakeMaker 0 ... Yes (6.98) Configuring Dancer2-Plugin-Passphrase-v2.0.4 Running Makefile.PL Checking if your kit is complete... Looks good Generating a Unix-style Makefile Writing Makefile for Dancer2::Plugin::Passphrase Writing MYMETA.yml and MYMETA.json -> OK Checking dependencies from MYMETA.json ... Checking if you have Digest::SHA 5.74 ... Yes (5.92) Checking if you have Module::Pluggable 5.1 ... Yes (5.1) Checking if you have Dancer2 0.153002 ... Yes (0.156001) Checking if you have Data::Entropy 0.007 ... Yes (0.007) Checking if you have Test::More 0 ... Yes (1.001002) Checking if you have Digest::Bcrypt 0 ... Yes (1.0.1) Checking if you have ExtUtils::MakeMaker 0 ... Yes (6.98) Building and testing Dancer2-Plugin-Passphrase-v2.0.4 cp lib/Dancer2/Plugin/Passphrase.pm blib/lib/Dancer2/Plugin/Passphrase.pm Manifying blib/man3/Dancer2::Plugin::Passphrase.3 PERL_DL_NONLAZY=1 /Users/gabor/perl5/perlbrew/perls/perl-5.20.1_WITH_THREADS/bin/perl "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/ar ch')" t/*.t t/001_basics.t ...................... ok t/002_pod_coverage.t ................ ok No DSL object found at /Users/gabor/.cpanm/work/1418214682.4823/Dancer2-Plugin-Passphrase-2.0.4/blib/lib/Dancer2/Plugin/Passphrase.pm line 475. # Looks like your test exited with 255 before it could output anything. t/003_default_settings.t ............ Dubious, test returned 255 (wstat 65280, 0xff00) Failed 3/3 subtests No DSL object found at /Users/gabor/.cpanm/work/1418214682.4823/Dancer2-Plugin-Passphrase-2.0.4/blib/lib/Dancer2/Plugin/Passphrase.pm line 479. # Looks like your test exited with 255 before it could output anything. t/004_all_algorithm_matching.t ...... Dubious, test returned 255 (wstat 65280, 0xff00) Failed 26/26 subtests ......

5 16

D1 => D2 from_yaml has changed
by Gabor Szabo 13 Dec '14

13 Dec '14

I used to have this code: sub read_sites { open my $fh, '<encoding(UTF-8)', mymaven->{root} . '/sites.yml' or return {}; my $yaml = do { local $/ = undef; <$fh> }; from_yaml $yaml; } where sites.yml is this file: https://github.com/szabgab/perlmaven.com/blob/main/sites.yml That worked well. Now it returns undef and does not evan complain about not being able to convert my yaml string to perl data structure. ================= I see that in D1 from_yaml was this code: YAML::Load($content); In D2 it is now this code: YAML::Load(decode('UTF-8', $content)); So I wonder, was I doing it all wrong earlier, but it worked because of the (mis)feature of Dancer? Should I refrain from using from_yaml at all for data I read in myself? What was the recommended approach here for D1 and what is it for D2? Gabor ps. Now that I saw this code, I am going to convert it to Path::Tiny, but I think the reason I have not used it earlier was that the 'path' function of that module and the 'path' function of Dancer would clash.

2 1

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