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

dancer2's prototype is there, feedback needed
by sukria 05 Oct '12

05 Oct '12

Hi there, I am very glad and proud to announce here that I've came up with a prototype of dancer2 that pleases me enough to be advertised. -*- https://github.com/sukria/dancer2 -*- dancer2 is a complete rewrite of Dancer aiming at providing the same awesomeness with the following major changes: - no more globals in the core - 100% object-oriented backend (based on Moo) - better scoping for sub-applications - better design (no more encapsulation violations, Law of Demeter, ...) The prototype I've pushed to GitHub currently covers ~80% of the DSL of Dancer. It's able to run simple applications (it can run the PerlDancer.org website for instance). Of course, with your real-life applications, it will break in many places in this current shape, and this is where you can help. I'd like to have as many reports as possible regarding upgrades tests. You can test very easily your app with dancer2: $ git clone http://github.com/sukria/dancer2.git $ cd YOUR_APP $ perl -I../dancer2/lib bin/app.pl Also, important to know: most of the plugins may not be working well. Thanks a lot ;)

14 29

Current Dancer version has one failing test
by Иван Бессарабов 29 Apr '12

29 Apr '12

Current devel branch (b78a6ae1bb5eb572e9a356e42a2892bff14e40b1) of Dancer in some environment has one failing test: t/25_exceptions/02_exceptions.t ................ 1/? # Failed test at t/25_exceptions/02_exceptions.t line 133. # got: 'wrong login (login was douglas) at t/25_exceptions/02_exceptions.t line 130 # ' # expected: 'wrong login (login was douglas)' # Looks like you failed 1 test of 29. Here is the full Travis-CI build log: http://travis-ci.org/#!/bessarabov/Dancer/jobs/1201492 At first I've found this problem on my ubuntu 10.04 LTS box, and then I have reproduced it on Travis-CI.

1 0

No maillist info on http://perldancer.org/ main page
by Иван Бессарабов 26 Apr '12

26 Apr '12

I've just posted a message to dancer-users(a)perldancer.org and this is not the thing I'm doing regulary. After the mail has been send I wanted to check if I have written the 'To' address correctly and the mail have appeared on the list. I went to Dancer main site [1] to check the maillist archive, but there is no info about it on the site's main page. I've managed to find out where the archive is [2] using search, but I think it is a great idea to add info about how to subscribe and the link to the mail archive to the site main page. [1]: http://perldancer.org/ [2]: http://www.backup-manager.org/pipermail/dancer-users/

2 1

No git tag v1.3094
by Иван Бессарабов 26 Apr '12

26 Apr '12

On CPAN the latest version of Dancer is 1.3095 [1], but in git [2 ]there is no tag v1.3095 (the last one is v1.3094). Please tag this version. Thank you. [1]: https://metacpan.org/release/XSAWYERX/Dancer-1.3095 [2]: https://github.com/sukria/Dancer

2 3

Error handling
by Joel Roth 24 Apr '12

24 Apr '12

Can someone help me find an example of how to use Dancer::Error and Dancer::Response. This code (based on man Dancer::Error) gets runtime error "can't find object method set via package Dancer::Response" ------- code --- get 'quux' => sub { err_not_found ( 'quux' ) }; sub err_not_found { my $path = shift; my $error = Dancer::Error->new( code => 404, content => "No such file: $path", ); Dancer::Response->set($error->render); } ---------------- Thanks, Joel -- Joel Roth

2 3

route classes
by Puneet Kishor 23 Apr '12

23 Apr '12

Is it possible to create route classes in a base module and then have all derived instance routes inherit from the parent class? Kinda like so -- use Dance; get '/' => sub { my $name = param 'name'; return "name is required for all GETs" unless $name; }; post '/' => sub { my $id = param 'id'; return "id is required for all POSTs" unless $id; }; ---- use MyDance; use base 'Dance'; get '/' => sub { my $foo = param 'foo'; .. do something with $foo and $name but only if $name is defined .. }; For bonus points, it would be nice to have base route classes only for routes that end with a '.:format'. For example, only for routes that request 'resource.json' Is the above possible? -- Puneet Kishor

2 2

Dancer RBAC tutorial
by Puneet Kishor 20 Apr '12

20 Apr '12

From a little scouting around, Dancer::Plugin::RBAC seems to be the preferred way to go about setting up a protected/authenticated web app. I would appreciate it if someone can direct me to a tutorial showing how to implement DP::RBAC (or, any other recommended alternative). Many thanks, -- Puneet Kishor

1 0

Multiple "optional" components in URLs
by Ovid 19 Apr '12

19 Apr '12

Hi all, I had this in my Dancer code: get '/instance/?:id?' => sub { my $id = param('id'); ... }; That let's me do this: http://localhost:5000/instance # get a list of instances http://localhost:5000/instance/ # get a list of instances http://localhost:5000/instance/213 # get instance 213 However, after I typoed a URL, I discovered that it would also match: http://localhost:5000/instances # get instance 's' This is because of the generated regex: /^\/instance\/?([^\/]+)?$/ I've fixed this by switching to regex paths, but I would argue for the following to be the regex generated from my example above: /^\/instance(?:\/([^\/]+))?$/ In other words, if you have multiple "optional" components in a path, they are all required up to, but excluding, the last optional component found in the URL that is accessed. You could then safely visit /instance, /instance/, and /instance/42. This would allow the easy construction of things like this: /member/?:member_id?/?:tag_id? Allowing you to access: /member /member/ /member/3 /member/3/ /member/3/7 This would make it easy to write the sort of URLs that I often write. Speculation: at that point, if we have an optional component, we could *assume* that the preceding / must be optional (?), leading to a simple URL: /member/:member_id?/:tag_id? Once something optional is found, nothing after it may be mandatory (otherwise, if you had optional items collapsing out of the URL, it would be a semantic mess that's impossible to sort through). Thoughts? Cheers, Ovid -- Live and work overseas - http://www.overseas-exile.com/ Buy the book - http://www.oreilly.com/catalog/perlhks/ Tech blog - http://blogs.perl.org/users/ovid/ Twitter - http://twitter.com/OvidPerl/

1 0

Yelp-ish app with Dancer
by Puneet Kishor 15 Apr '12

15 Apr '12

I am thinking of reinventing the wheel, but before I dive in, am wondering if there is already a (preferably Dancer-based, or at least) Perl-based code base that I can build upon. The idea is simple... see something, rate it, recommend it (or not) with a little write-up, add a photo or two, tag it, and also, be able to "follow" other recommenders. Kinda like a mash-up of Yelp and Facebook. Many thanks for any suggestions. -- Puneet Kishor

4 4

Exception in before_template_render hook does not render error_template
by Alex C 14 Apr '12

14 Apr '12

I noticed this when trying to make a database call in the before_template_render hook (to conditionally set a token if a row exists). To reproduce: $ echo "my custom error message" > views/error.tt --------- package App; use Dancer ':syntax'; set show_errors => 0; set error_template => 'error.tt'; hook before_template_render => sub { die; }; get '/' => sub { template 'index.tt'; }; true; --------- It can be resolved by adding a simple check inside Dancer::Template::Abstract::apply_renderer() : --------- @@ -73,9 +73,13 @@ sub apply_renderer { ($tokens, undef) = _prepare_tokens_options($tokens); + my $is_error_template + = $view eq Dancer::Config::setting('error_template') ? 1 : 0; + $view = $self->view($view); - Dancer::Factory::Hook->execute_hooks('before_template_render', $tokens); + Dancer::Factory::Hook->execute_hooks('before_template_render', $tokens) + unless $is_error_template; --------- Is it worth making a PR for this? -- Alex

1 2