view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

        "Class::Accessor"   => "0.22",
        "Text::CSV_XS"      => "0.23",
        "Net::SSLeay"       => "1.25",	

    },	      
    test            => { TESTS => join( " ", @tests ) },
};

# modules only for testing
if ($enable_livetest) {
    $params->{'PREREQ_PM'}{'Test::Differences'} = "";
    $params->{'PREREQ_PM'}{'DateTime'}          = "0.31";
}    


if (MM->can('signature_target')) {
    $params->{'SIGN'} = 1;
}

WriteMakefile( %$params );

t/methods/live/statement.t  view on Meta::CPAN

ok(my $statement = $account->statement, 'retrieve statement');

SKIP:
{
    eval 'use DateTime';
    skip('because DateTime is required for statement() structure validation', 1) if $@;
}

SKIP:
{
    eval 'use Test::Differences';
    skip('because Test::Differences is required for statement() structure validation', 1) if $@;
}

my $dt = DateTime->now();
$dt->set_time_zone("Europe/Berlin");
my $today = $dt;

my $month_back = $dt->clone()->subtract( DateTime::Duration->new( months => 1) );

    
eq_or_diff($statement->{ACCOUNT}, { 'KUNDENNUMMER' => 'demo',