Branch Coverage

blib/lib/perl5i/2/DateTime.pm
Criterion Covered Total %
branch 24 34 70.5


line true false branch
25 11 2 @_ ? :
26 3 10 if wantarray
49 0 2 if $ENV{'TZ'}
54 2 0 if (-e $local_tzfile)
57 0 2 if (-l $local_tzfile)
58 0 0 if (my $real_tzfile = eval { do { readlink $local_tzfile } })
67 2 0 if $tz
75 6 3 @_ ? :
76 5 4 if wantarray
120 5 0 unless eval { do { $dt2->isa('DateTime') } }
181 2 6 if ($reverse)
185 6 2 eval { do { $a->isa('DateTime') } } ? :
186 6 2 eval { do { $b->isa('DateTime') } } ? :
194 0 3 if ($reverse)
198 3 0 eval { do { $a->isa('DateTime') } } ? :
199 1 2 eval { do { $b->isa('DateTime') } } ? :
206 1 0 unless eval { do { $b->isa('DateTime') } }