App-JobLog
view release on metacpan or search on metacpan
App::Cmd::Tester: '0'
Capture::Tiny: '0'
ExtUtils::MakeMaker: '0'
File::Path: '2.06'
File::Spec: '0'
File::Temp: '0'
IO::Handle: '0'
IPC::Open3: '0'
POSIX: '0'
String::Random: '0'
Test::Fatal: '0'
Test::More: '0'
autodie: '0'
blib: '1.01'
perl: '5.006'
strict: '0'
warnings: '0'
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 5.042, CPAN::Meta::Converter version 2.150005'
Makefile.PL view on Meta::CPAN
"App::Cmd::Tester" => 0,
"Capture::Tiny" => 0,
"ExtUtils::MakeMaker" => 0,
"File::Path" => "2.06",
"File::Spec" => 0,
"File::Temp" => 0,
"IO::Handle" => 0,
"IPC::Open3" => 0,
"POSIX" => 0,
"String::Random" => 0,
"Test::Fatal" => 0,
"Test::More" => 0,
"autodie" => 0,
"blib" => "1.01",
"strict" => 0,
"warnings" => 0
},
"VERSION" => "1.042",
"test" => {
"TESTS" => "t/*.t"
}
Makefile.PL view on Meta::CPAN
"File::Temp" => 0,
"FileHandle" => 0,
"IO::All" => 0,
"IO::Handle" => 0,
"IPC::Open3" => 0,
"Modern::Perl" => 0,
"Module::Build" => "0.3601",
"POSIX" => 0,
"String::Random" => 0,
"Term::ReadKey" => "2.30",
"Test::Fatal" => 0,
"Test::More" => 0,
"Text::Wrap" => 0,
"Text::WrapI18N" => 0,
"autodie" => 0,
"autouse" => 0,
"base" => 0,
"blib" => "1.01",
"constant" => 0,
"if" => 0,
"overload" => 0,
t/00-report-prereqs.dd view on Meta::CPAN
'App::Cmd::Tester' => '0',
'Capture::Tiny' => '0',
'ExtUtils::MakeMaker' => '0',
'File::Path' => '2.06',
'File::Spec' => '0',
'File::Temp' => '0',
'IO::Handle' => '0',
'IPC::Open3' => '0',
'POSIX' => '0',
'String::Random' => '0',
'Test::Fatal' => '0',
'Test::More' => '0',
'autodie' => '0',
'blib' => '1.01',
'perl' => '5.006',
'strict' => '0',
'warnings' => '0'
}
}
};
$x;
use App::JobLog::Log::Line;
use App::JobLog::Log;
use App::JobLog::Time qw(tz);
use Capture::Tiny qw(capture);
use DateTime;
use File::Spec;
use IO::All -utf8;
use FileHandle;
use Test::More;
use Test::Fatal;
# create a working directory
my $dir = File::Temp->newdir();
$ENV{ DIRECTORY() } = $dir;
# use a constant time zone so as to avoid crafting data to fit various datelight savings time adjustments
$App::JobLog::Config::tz =
DateTime::TimeZone->new( name => 'America/New_York' );
subtest 'empty log' => sub {
t/LogLine.t view on Meta::CPAN
#!/usr/bin/perl
# ABSTRACT: checks sanity of App::JobLog::Log::Line
use 5.006;
use strict;
use warnings;
use App::JobLog::Log::Line;
use Test::More;
use Test::Fatal;
# test API
my $module = 'App::JobLog::Log::Line';
# TODO test for crucial methods
my ( $line, $ll, $stringification );
subtest 'regression' => sub {
( $line = <<'END') =~ s/^\s++|\s++//g;
2011 1 3 2 41 36:5:j n Hn\\;tM_{'*T. A~kE#V2T M+&_%3WZu\\;`! v-/)%do FE-"CK, Us 9N|ix E
use App::JobLog::Config qw(log DIRECTORY);
use App::JobLog::Log::Line;
use App::JobLog::Log;
use App::JobLog::Time qw(tz);
use DateTime;
use File::Spec;
use IO::All -utf8;
use FileHandle;
use Test::More;
use Test::Fatal;
# create a working directory
my $dir = File::Temp->newdir();
$ENV{ DIRECTORY() } = $dir;
# use a constant time zone so as to avoid crafting data to fit various datelight savings time adjustments
$App::JobLog::Config::tz =
DateTime::TimeZone->new( name => 'America/New_York' );
subtest 'append and retrieve last note' => sub {
t/TimeGrammar.t view on Meta::CPAN
log
pay_period_length
start_pay_period
);
use App::JobLog::Time qw(tz);
use App::JobLog::TimeGrammar;
use DateTime;
use File::Temp;
use Test::More;
use Test::Fatal;
# create working directory
my $dir = File::Temp->newdir();
$ENV{ DIRECTORY() } = $dir;
# fix current moment
my $now = DateTime->new( year => 2011, month => 2, day => 18, time_zone => tz );
$App::JobLog::Time::now = $now;
subtest 'regressions' => sub {
use App::JobLog::Time qw(tz);
use DateTime;
use File::Spec;
use IO::All -utf8;
use FileHandle;
use DateTime::TimeZone;
use POSIX qw(tzset);
use Test::More;
use App::Cmd::Tester;
use Test::Fatal;
# create a working directory
my $dir = File::Temp->newdir();
$ENV{ DIRECTORY() } = $dir;
# use a constant time zone so as to avoid crafting data to fit various datelight savings time adjustments
$ENV{'TZ'} = 'America/New_York';
tzset();
$App::JobLog::Config::tz =
DateTime::TimeZone->new( name => 'America/New_York' );
t/regression.t view on Meta::CPAN
use App::JobLog::Time qw(tz);
use DateTime;
use File::Spec;
use IO::All -utf8;
use FileHandle;
use DateTime::TimeZone;
use POSIX qw(tzset);
use Test::More;
use App::Cmd::Tester;
use Test::Fatal;
# create a working directory
my $dir = File::Temp->newdir();
$ENV{ DIRECTORY() } = $dir;
# use a constant time zone so as to avoid crafting data to fit various datelight savings time adjustments
$ENV{'TZ'} = 'America/New_York';
tzset();
$App::JobLog::Config::tz =
DateTime::TimeZone->new( name => 'America/New_York' );
( run in 2.707 seconds using v1.01-cache-2.11-cpan-54e63673c56 )