Re: [dancer-users] Scope of modules and 'use' directives

28 Jan 2013

      On Mon, Jan 28, 2013 at 03:48:19AM +0000, gvim wrote:
...
I'm developing a Dancer app with the setup outlined below (ie.
modules 'use'-ing other modules) but I'm confused about when to
'use' various modules and Perl version statements. My config.yml has
Template Toolkit selected so my first question is do I need to
specify 'use Template' in each module that uses the 'template()'
call or is that all taken care of once the config has been
specified. If it is taken care of, does that apply to all the
'nested' modules? Next, do I need to specify 'use Dancer
qw(:syntax)' in every module which makes use of Dancer functions?
Again with 'use 5.014' - in every module or is once enough in the
App::Routes module, for example? I suppose what I'm unclear about is
what an imported module can access that is in the importing
module/script.
Hi gvim,

Each module needs to "use Dancer ':syntax'". According to 'man
dancer':

    Note that a package loaded using load_app must import Dancer
    with the ":syntax" option, in order not to change the
    application directory (which has been previously set for the
    caller script).

To double-check my answer to this question, I just took at
gander at Assaf Gordon's Cowbell sample code.

http://cowbell.cancan.cshl.edu/

If you want Perl version 5.014 syntax in a module, you need
'use 5.014'.

cheers,

Joel
...
gvim
****************************************
package App::Routes;
use 5.014;
use Dancer qw(:syntax);
use App::Login;
use App::Logout;
use App::Register;
........
post '/login'        => sub { App::Login::run };
post '/logout'       => sub { App::Logout::run };
post '/register'     => sub { App::Register::run };
.........
1;
**************** App/Register.pm ************************
package App::Register;
use 5.014;
use Dancer qw(:syntax);
use App::Validate;
sub run {
  my $valids = validate(params());     # Validate and process any
errors then return %form
  ............
  template 'register_user', {form => $valids};
};
1;
***************** App/Validate.pm ***************************
package App::Validate;
use 5.014;
use Data::FormValidator;
use Dancer qw(:syntax);
BEGIN {
  use Exporter;
  our @ISA = 'Exporter';
  our @EXPORT = 'validate';
}
sub validate {
  my $params = shift;
  my $results = Data::FormValidator->check($params, \%profile);
  .........
  template 'errors', {invalid => $results->invalid, missing =>
$results->missing};
  return $results->valid;
}
my %profile = (
............
);
1;
_______________________________________________
dancer-users mailing list
dancer-users@dancer.pm
http://lists.preshweb.co.uk/mailman/listinfo/dancer-users
-- 
Joel Roth