| blib/lib/MooX/Pression.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 54 | 96 | 56.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 716 | 24 | 2 | 0 | $seen_named and $seen_pos |
| 717 | 0 | 0 | 0 | @parsed and $parsed[0]{'positional'} |
| 720 | 0 | 0 | 0 | @parsed and $parsed[-1]{'positional'} |
| 1079 | 5 | 60 | 7 | $name and $has_sig |
| 1141 | 21 | 5 | 0 | defined $default and $default =~ /\$self/u |
| 1216 | 13 | 6 | 19 | $owed and $owed > $diff |
| 1677 | 1 | 0 | 0 | @_ == 1 and ref $_[0] eq 'HASH' |
| 1 | 0 | 0 | @_ == 1 and ref $_[0] eq 'ARRAY' |
| line | l | !l | condition |
|---|---|---|---|
| 40 | 29 | 38 | $gather{$me}{$caller}{$kind} ||= [] |
| 57 | 0 | 1 | $gather{$me}{$caller}{'class_generator'} ||= [] |
| 72 | 40 | 27 | $stack{$me}{$caller} ||= [] |
| 107 | 13 | 8 | $class_hash{$parent_key}{'subclass'} ||= [] |
| 125 | 0 | 2 | $got->{'extends'} ||= [$extends] |
| 615 | 156 | 33 | $opts{'anchor'} ||= '' |
| 1104 | 0 | 1 | $opts->{'toolkit'} || 'Moo' |
| 1122 | 4 | 0 | $code ||= '{}' |
| 1131 | 0 | 4 | $opts->{'toolkit'} || 'Moo' |
| 1209 | 72 | 84 | $pad_at_end ||= 0 |
| 1314 | 1 | 60 | $plus ||= '' |
| 1315 | 43 | 18 | $block ||= '{}' |
| 1336 | 0 | 1 | $plus ||= '' |
| 1337 | 0 | 1 | $block ||= '{}' |
| 1359 | 10 | 0 | $block ||= '{}' |
| 1617 | 0 | 0 | $via ||= 'new' |
| 1678 | 0 | 0 | $OPTS{'overload'} ||= [] |
| 1681 | 0 | 0 | $OPTS{'overload'} ||= [] |
| 1684 | 0 | 1 | $OPTS{'overload'} ||= [] |
| 1717 | 0 | 8 | $OPTS{'extends'} ||= [] |
| 1745 | 0 | 9 | $OPTS{'with'} ||= [] |
| 1752 | 0 | 0 | $OPTS{'import'} ||= [] |
| 1757 | 1 | 2 | $OPTS{'requires'} ||= [] |
| 1762 | 0 | 1 | $OPTS{'coerce'} ||= [] |
| 1767 | 1 | 1 | $OPTS{'factory'} ||= [] |
| 1794 | 0 | 4 | $OPTS{'multimethod'} ||= [] |
| 1805 | 0 | 5 | $OPTS{$kind} ||= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 617 | 84 | 105 | 0 | $_fetch_re_cache{$key} ||= do { die "could not fetch re for $name" unless "$GRAMMAR" =~ m[<$name>(.+)</$name>]su; (my $re = $1) =~ s/\)\#$//u; my @lines = split(/\n/u, $re, 0); foreach $_ (@lines) { if (my($named_capture) = /# CAPTURE:(\w+)/u) { s/\(\?\:/(?<$named_capture>/u; } ; } ; $re = join("\n", @lines); $opts{'anchor'} eq 'start' ? qr/ ^ $re $GRAMMAR /sux : ($opts{'anchor'} eq 'end' ? qr/ $re $GRAMMAR $ /sux : ($opts{'anchor'} eq 'both' ? qr/ ^ $re $GRAMMAR $ /sux : qr/ $re $GRAMMAR /sux)) } |
| 729 | 0 | 0 | 0 | $is_optional ||= $p->{'type'} =~ /^Optional/su |
| 774 | 3 | 2 | 32 | exists $p->{'optional'} or exists $p->{'default'} |
| 2 | 3 | 29 | exists $p->{'optional'} or exists $p->{'default'} or $p->{'slurpy'} | |
| 786 | 0 | 0 | 26 | @head or @tail |
| 1241 | 0 | 29 | 0 | $opts{'caller'} ||= caller |