| blib/lib/MooX/Pression.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 50 | 95 | 52.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 654 | 18 | 1 | 0 | $seen_named and $seen_pos |
| 655 | 0 | 0 | 0 | @parsed and $parsed[0]{'positional'} |
| 658 | 0 | 0 | 0 | @parsed and $parsed[-1]{'positional'} |
| 1002 | 5 | 53 | 7 | $name and $has_sig |
| 1064 | 21 | 4 | 0 | defined $default and $default =~ /\$self/u |
| 1563 | 1 | 0 | 0 | @_ == 1 and ref $_[0] eq 'HASH' |
| 1 | 0 | 0 | @_ == 1 and ref $_[0] eq 'ARRAY' |
| line | l | !l | condition |
|---|---|---|---|
| 40 | 27 | 33 | $gather{$me}{$caller}{$kind} ||= [] |
| 57 | 0 | 1 | $gather{$me}{$caller}{'class_generator'} ||= [] |
| 72 | 37 | 23 | $stack{$me}{$caller} ||= [] |
| 107 | 13 | 8 | $class_hash{$parent_key}{'subclass'} ||= [] |
| 125 | 0 | 2 | $got->{'extends'} ||= [$extends] |
| 553 | 131 | 10 | $opts{'anchor'} ||= '' |
| 1027 | 0 | 1 | $opts->{'toolkit'} || 'Moo' |
| 1045 | 4 | 0 | $code ||= '{}' |
| 1054 | 0 | 4 | $opts->{'toolkit'} || 'Moo' |
| 1198 | 1 | 56 | $plus ||= '' |
| 1199 | 40 | 17 | $block ||= '{}' |
| 1220 | 0 | 1 | $plus ||= '' |
| 1221 | 0 | 1 | $block ||= '{}' |
| 1243 | 7 | 0 | $block ||= '{}' |
| 1384 | 1 | 24 | $plus ||= '' |
| 1385 | 0 | 25 | $postfix ||= '' |
| 1503 | 0 | 0 | $via ||= 'new' |
| 1564 | 0 | 0 | $OPTS{'overload'} ||= [] |
| 1567 | 0 | 0 | $OPTS{'overload'} ||= [] |
| 1570 | 0 | 1 | $OPTS{'overload'} ||= [] |
| 1600 | 0 | 8 | $OPTS{'extends'} ||= [] |
| 1624 | 0 | 7 | $OPTS{'with'} ||= [] |
| 1630 | 0 | 0 | $OPTS{'import'} ||= [] |
| 1634 | 1 | 2 | $OPTS{'requires'} ||= [] |
| 1638 | 0 | 1 | $OPTS{'coerce'} ||= [] |
| 1642 | 1 | 1 | $OPTS{'factory'} ||= [] |
| 1657 | 0 | 0 | $OPTS{'multimethod'} ||= [] |
| 1662 | 0 | 3 | $OPTS{$kind} ||= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 555 | 72 | 69 | 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)) } |
| 667 | 0 | 0 | 0 | $is_optional ||= $p->{'type'} =~ /^Optional/su |
| 712 | 0 | 2 | 26 | exists $p->{'optional'} or exists $p->{'default'} |
| 2 | 3 | 23 | exists $p->{'optional'} or exists $p->{'default'} or $p->{'slurpy'} | |
| 724 | 0 | 0 | 19 | @head or @tail |
| 1125 | 0 | 25 | 0 | $opts{'caller'} ||= caller |