polettix

use strict;
use warnings;

use Test::More import => ['!pass'], 'no_plan';
use Dancer ':syntax';
use Dancer::Test;

setting template => 'template_toolkit';
ok(get('/' => sub { template root => {who => 'root'} }), 'root route');
route_exists [GET => $_] for qw( / );

polettix

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

my @columns = '';
my $region = '';
my $valore = '';
my @lac1 = '';
my @lac2 = '';

polettix

use strict;
use warnings;
use ExtUtils::MakeMaker;

WriteMakefile(
    NAME                => 'dario',
    AUTHOR              => q{YOUR NAME <youremail@example.com>},
    VERSION_FROM        => 'lib/dario.pm',
    ABSTRACT            => 'YOUR APPLICATION ABSTRACT',
    ($ExtUtils::MakeMaker::VERSION >= 6.3002