| blib/lib/MooX/Pression.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 47 | 91 | 51.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 691 | 18 | 1 | 0 | $seen_named and $seen_pos |
| 692 | 0 | 0 | 0 | @parsed and $parsed[0]{'positional'} |
| 695 | 0 | 0 | 0 | @parsed and $parsed[-1]{'positional'} |
| 1054 | 5 | 54 | 7 | $name and $has_sig |
| 1116 | 21 | 5 | 0 | defined $default and $default =~ /\$self/u |
| 1618 | 1 | 0 | 0 | @_ == 1 and ref $_[0] eq 'HASH' |
| 1 | 0 | 0 | @_ == 1 and ref $_[0] eq 'ARRAY' |
| line | l | !l | condition |
|---|---|---|---|
| 40 | 27 | 34 | $gather{$me}{$caller}{$kind} ||= [] |
| 57 | 0 | 1 | $gather{$me}{$caller}{'class_generator'} ||= [] |
| 72 | 37 | 24 | $stack{$me}{$caller} ||= [] |
| 107 | 13 | 8 | $class_hash{$parent_key}{'subclass'} ||= [] |
| 125 | 0 | 2 | $got->{'extends'} ||= [$extends] |
| 590 | 136 | 26 | $opts{'anchor'} ||= '' |
| 1079 | 0 | 1 | $opts->{'toolkit'} || 'Moo' |
| 1097 | 4 | 0 | $code ||= '{}' |
| 1106 | 0 | 4 | $opts->{'toolkit'} || 'Moo' |
| 1255 | 1 | 57 | $plus ||= '' |
| 1256 | 41 | 17 | $block ||= '{}' |
| 1277 | 0 | 1 | $plus ||= '' |
| 1278 | 0 | 1 | $block ||= '{}' |
| 1300 | 7 | 0 | $block ||= '{}' |
| 1558 | 0 | 0 | $via ||= 'new' |
| 1619 | 0 | 0 | $OPTS{'overload'} ||= [] |
| 1622 | 0 | 0 | $OPTS{'overload'} ||= [] |
| 1625 | 0 | 1 | $OPTS{'overload'} ||= [] |
| 1655 | 0 | 8 | $OPTS{'extends'} ||= [] |
| 1679 | 0 | 7 | $OPTS{'with'} ||= [] |
| 1685 | 0 | 0 | $OPTS{'import'} ||= [] |
| 1689 | 1 | 2 | $OPTS{'requires'} ||= [] |
| 1693 | 0 | 1 | $OPTS{'coerce'} ||= [] |
| 1697 | 1 | 1 | $OPTS{'factory'} ||= [] |
| 1712 | 0 | 0 | $OPTS{'multimethod'} ||= [] |
| 1717 | 0 | 4 | $OPTS{$kind} ||= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 592 | 74 | 88 | 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)) } |
| 704 | 0 | 0 | 0 | $is_optional ||= $p->{'type'} =~ /^Optional/su |
| 749 | 0 | 2 | 26 | exists $p->{'optional'} or exists $p->{'default'} |
| 2 | 3 | 23 | exists $p->{'optional'} or exists $p->{'default'} or $p->{'slurpy'} | |
| 761 | 0 | 0 | 19 | @head or @tail |
| 1182 | 0 | 26 | 0 | $opts{'caller'} ||= caller |