| blib/lib/Date/Tolkien/Shire/Data.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 47 | 66 | 71.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 116 | 361 | 7 | 0 | not $month and 4 == $day |
| 134 | 0 | 0 | 731 | $yd > 0 and $yd <= 366 |
| 182 | 21 | 3 | 36 | defined $cond[$inx] and "" ne $cond[$inx] |
| 188 | 3 | 9 | 18 | defined $cond[1] and not $date->__fmt_shire_month |
| 191 | 21 | 6 | 3 | defined $cond[2] and not __day_of_week($date->__fmt_shire_month, $date->__fmt_shire_day) |
| 371 | 2 | 1 | 1 | defined $ctx->{'pad'} and "" eq $ctx->{'pad'} |
| 374 | 0 | 0 | 3 | 1 < length $conv and $code = $spec{substr $conv, 1} |
| 383 | 339 | 0 | 6 | delete $ctx->{'change_case'} and $code = $case_change{$conv} |
| 393 | 229 | 4 | 112 | $ctx->{'wid'} and "" ne $ctx->{'pad'} |
| 233 | 36 | 76 | $ctx->{'wid'} and "" ne $ctx->{'pad'} and ($need = $ctx->{'wid'} - length($rslt)) > 0 | |
| 418 | 2 | 0 | 1 | defined $offset and $offset =~ / \A [+-]? [0-9]+ \z /msx |
| 1065 | 0 | 0 | 1201 | defined $_ && / \A [-+]? [0-9]+ \z /msx |
| 1073 | 0 | 0 | 75 | ref $_ && eval { do { $_->can('isa') } } |
| 1076 | 0 | 0 | 304 | defined $_ && !ref($_) |
| 1080 | 484 | 0 | 10719 | defined $_ && / \A [0-9]+ \z /msx |
| line | l | !l | condition |
|---|---|---|---|
| 494 | 6 | 2 | $lookup->{$holiday} || 0 |
| 535 | 18 | 5 | $month or 0 |
| 553 | 12 | 2 | $lookup->{$month} || 0 |
| 922 | 401 | 400 | $day ||= 1 |
| 942 | 207 | 0 | $hash{'day'} ||= 1 |
| 944 | 260 | 775 | $hash{$_} ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 943 | 77 | 0 | 130 | $hash{'month'} ||= $hash{'day'} < 7 ? 0 : 1 |
| 957 | 75 | 0 | 0 | ref $obj || $obj |
| 960 | 74 | 1 | 0 | $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 } |