| line |
true |
false |
branch |
|
83
|
21 |
0 |
$hour < 12 ? : |
|
96
|
35 |
376 |
unless $month |
|
112
|
721 |
13 |
$month ? : |
|
115
|
368 |
366 |
unless (__is_leap_year($year)) |
|
116
|
0 |
368 |
if not $month and 4 == $day |
|
119
|
182 |
186 |
if $yd >= 184 |
|
130
|
365 |
366 |
unless (__is_leap_year($year)) |
|
131
|
182 |
183 |
if $yd >= 184 |
|
134
|
0 |
731 |
unless $yd > 0 and $yd <= 366 |
|
139
|
11 |
4347 |
if $yd == $holiday_day[$day] |
|
144
|
360 |
360 |
if $yd > 180 |
|
169
|
3 |
0 |
$date->can($1) ? : |
|
|
30 |
345 |
$2 ? : |
|
|
3 |
375 |
if ($1) { } |
|
182
|
24 |
36 |
unless defined $cond[$inx] and "" ne $cond[$inx] |
|
188
|
18 |
12 |
if defined $cond[1] and not $date->__fmt_shire_month |
|
191
|
3 |
27 |
if defined $cond[2] and not __day_of_week($date->__fmt_shire_month, $date->__fmt_shire_day) |
|
358
|
0 |
345 |
unless defined $mod |
|
361
|
4 |
341 |
if $wid |
|
364
|
26 |
0 |
if $code = $modifier_map{$char} |
|
367
|
4 |
341 |
if ($wid) |
|
371
|
1 |
3 |
if defined $ctx->{'pad'} and "" eq $ctx->{'pad'} |
|
374
|
342 |
3 |
if ($code = $spec{$conv}) { } |
|
|
3 |
0 |
elsif (1 < length $conv and $code = $spec{substr $conv, 1}) { } |
|
381
|
8 |
337 |
unless defined $rslt |
|
383
|
6 |
339 |
if (delete $ctx->{'change_case'} and $code = $case_change{$conv}) |
|
388
|
6 |
339 |
if delete $ctx->{'uc'} |
|
393
|
76 |
40 |
if $ctx->{'wid'} and "" ne $ctx->{'pad'} and ($need = $ctx->{'wid'} - length($rslt)) > 0 |
|
402
|
93 |
23 |
unless defined $ctx->{'pad'} |
|
404
|
107 |
9 |
unless defined $ctx->{'wid'} |
|
405
|
116 |
0 |
defined $val ? : |
|
412
|
12 |
2 |
unless defined $_[1]{'pad'} |
|
418
|
2 |
1 |
unless defined $offset and $offset =~ / \A [+-]? [0-9]+ \z /msx |
|
421
|
0 |
1 |
$offset < 0 ? : |
|
427
|
0 |
1 |
$sec ? : |
|
438
|
12 |
12 |
$date->__fmt_shire_accented ? : |
|
|
8 |
16 |
unless defined(my $on_date = $date->__fmt_shire_accented ? __on_date_accented($month, $day) : __on_date($month, $day)) |
|
492
|
0 |
8 |
if $holiday =~ / \A [0-9]+ \z /msx |
|
503
|
4 |
2 |
$year % 400 ? : |
|
|
830 |
6 |
$year % 100 ? : |
|
|
1035 |
836 |
$year % 4 ? : |
|
518
|
21 |
739 |
unless defined $month |
|
533
|
21 |
23 |
unless defined $month |
|
551
|
0 |
14 |
if $month =~ / \A [0-9]+ \z /msx |
|
705
|
0 |
387 |
unless defined $day |
|
713
|
1 |
2 |
if (ref $_ eq 'CODE') { } |
|
|
1 |
1 |
elsif (ref $_ eq 'Regexp') { } |
|
|
0 |
1 |
elsif (ref $_) { } |
|
727
|
0 |
39 |
unless $on_date[$month] |
|
730
|
534 |
213 |
unless local $_ = $on_date[$month][$day] |
|
733
|
207 |
6 |
unless &$criterion() |
|
759
|
142 |
356 |
if ($day) |
|
781
|
0 |
387 |
unless defined $day |
|
785
|
2 |
385 |
unless @on_date_accented |
|
798
|
0 |
366 |
unless defined $day |
|
800
|
360 |
6 |
$month ? : |
|
883
|
12 |
363 |
unless $month |
|
935
|
0 |
282 |
unless my $ref = ref $date |
|
938
|
75 |
207 |
unless "HASH" eq $ref |
|
943
|
130 |
0 |
$hash{'day'} < 7 ? : |
|
948
|
142 |
65 |
unless defined $hash{'zone_name'} |
|
960
|
0 |
75 |
if @{$checked{$pkg} ||= do {
unless (ref $obj) {
(my $fn = $pkg) =~ s[ :: ][/]gmsx;
$fn .= '.pm';
require $fn unless $INC{$fn};
} ;
my @missing;
foreach my $method ("__fmt_shire_year", "__fmt_shire_month", "__fmt_shire_day", "__fmt_shire_hour", "__fmt_shire_minute", "__fmt_shire_second", "__fmt_shire_day_of_week", "__fmt_shire_nanosecond", "__fmt_shire_epoch", "__fmt_shire_zone_offset", "__fmt_shire_zone_name", "__fmt_shire_accented", "__fmt_shire_traditional") {
push @missing, $method unless $pkg->can($method);
} ;
\@missing
};} |
|
961
|
0 |
1 |
unless (ref $obj) |
|
964
|
0 |
0 |
unless $INC{$fn} |
|
983
|
0 |
13 |
unless $pkg->can($method) |
|
1019
|
42 |
42 |
if ($source_count++) { } |
|
1021
|
0 |
903 |
if ($conflict{$key}) { } |
|
|
651 |
252 |
elsif ($merged{$key}) { } |
|
1024
|
0 |
651 |
if ($merged{$key} != $hash{$key}) |
|
1036
|
0 |
42 |
wantarray ? : |
|
1059
|
180 |
0 |
'ARRAY' eq ref $_ ? : |
|
1062
|
207 |
75 |
'HASH' eq ref $_ ? : |
|
1065
|
1201 |
0 |
defined $_ && / \A [-+]? [0-9]+ \z /msx ? : |
|
1073
|
75 |
0 |
ref $_ && eval {
do {
$_->can('isa')
}
} ? : |
|
1076
|
304 |
0 |
defined $_ && !ref($_) ? : |
|
1080
|
10719 |
484 |
defined $_ && / \A [0-9]+ \z /msx ? : |
|
1085
|
0 |
484 |
defined $_ ? : |
|
1100
|
0 |
735 |
unless $type_def{$type} |
|
1107
|
0 |
7782 |
if @args > @spec |
|
1114
|
13170 |
559 |
unless my $error = $type_def{$type}->() |
|
1129
|
862 |
0 |
if defined $_ |
|
1158
|
36 |
0 |
unless defined $_[0]{$field} |
|
1177
|
138 |
42 |
if defined $inx |
|
1179
|
0 |
42 |
unless __PACKAGE__ eq caller |