Branch Coverage

blib/lib/perl5i/2/DateTime.pm
Criterion Covered Total %
branch 9 34 26.4


line true false branch
25 1 0 @_ ? :
26 0 1 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 1 1 @_ ? :
76 0 2 if wantarray
120 0 0 unless eval { do { $dt2->isa('DateTime') } }
181 0 0 if ($reverse)
185 0 0 eval { do { $a->isa('DateTime') } } ? :
186 0 0 eval { do { $b->isa('DateTime') } } ? :
194 0 0 if ($reverse)
198 0 0 eval { do { $a->isa('DateTime') } } ? :
199 0 0 eval { do { $b->isa('DateTime') } } ? :
206 0 0 unless eval { do { $b->isa('DateTime') } }