| line |
true |
false |
branch |
|
185
|
0 |
0 |
ref $val ? :
|
|
234
|
0 |
0 |
ref $val ? :
|
|
236
|
0 |
0 |
if ref $v
|
|
245
|
0 |
0 |
unless (defined $macro)
|
|
246
|
0 |
0 |
if (@chunks) { }
|
|
258
|
0 |
0 |
ref $_ ? :
|
|
260
|
0 |
0 |
defined $macros->{$macro} && @{$macros->{$macro};} ? :
|
|
269
|
0 |
0 |
unless (@chunks)
|
|
276
|
0 |
0 |
if (@x)
|
|
293
|
0 |
0 |
wantarray ? :
|
|
344
|
0 |
0 |
unless $deref
|
|
346
|
0 |
0 |
if (ref $deref) { }
|
|
349
|
0 |
0 |
defined $done{$m} ? :
|
|
357
|
0 |
0 |
unless $macros->{$m}
|
|
361
|
0 |
0 |
if $m eq $k
|
|
367
|
0 |
0 |
defined $done{$m} ? :
|
|
371
|
0 |
0 |
keys %m ? :
|
|
376
|
0 |
0 |
if (keys %pm) { }
|
|
|
0 |
0 |
elsif (keys %dm) { }
|
|
383
|
0 |
0 |
if $seen{$m}
|
|
412
|
0 |
0 |
if not @queue and keys %pending
|
|
423
|
0 |
0 |
&Scalar::Util::blessed($params) && $params->can('get_all') ? :
|
|
437
|
0 |
0 |
if (my($name, $sigil) = $k =~ /$DECLARATION/) { }
|
|
|
0 |
0 |
elsif ($k =~ /^\s*\S+\s+\S+.*?/ or $k =~ /[:\$]/) { }
|
|
441
|
0 |
0 |
if $GENERATED{$name}
|
|
481
|
0 |
0 |
unless $macros{$k}
|
|
503
|
0 |
0 |
$k =~ /$MACRO/go ? :
|
|
510
|
0 |
0 |
unless $maybe{$k}
|
|
525
|
0 |
0 |
unless @tokens
|
|
528
|
0 |
0 |
unless @tokens == @MAP
|
|
534
|
0 |
0 |
if defined $tokens[$_]
|
|
550
|
0 |
0 |
if ($contents{'designator'}) { }
|
|
555
|
0 |
0 |
if $contents{'modifier'}{'!'} and $sigil =~ /['\@^]/
|
|
557
|
0 |
0 |
if ($sigil eq "^")
|
|
563
|
0 |
0 |
$symbol eq '' ? :
|
|
569
|
0 |
0 |
$contents{'modifier'}{'!'} ? :
|
|
574
|
0 |
0 |
if (defined $contents{$which})
|
|
584
|
0 |
0 |
if ($contents{'deref'})
|
|
610
|
0 |
0 |
if ($contents{'modifier'}{'!'}) { }
|
|
616
|
0 |
0 |
if $self->callback
|
|
621
|
0 |
0 |
unless $contents{'designator'}[0] =~ /[_:]/
|
|
623
|
0 |
0 |
if ($contents{'modifier'}{'-'}) { }
|
|
626
|
0 |
0 |
if ($contents{'designator'}[0] eq '_') { }
|
|
627
|
0 |
0 |
unless $s =~ /^_:/
|
|
631
|
0 |
0 |
if $self->callback
|
|
637
|
0 |
0 |
if ref $neg{$g}{$s}{$p}
|
|
645
|
0 |
0 |
if $s eq ""
|
|
646
|
0 |
0 |
if ($contents{'designator'}[0] eq '_') { }
|
|
647
|
0 |
0 |
unless $s =~ /^_:/
|
|
651
|
0 |
0 |
if $self->callback
|
|
657
|
0 |
0 |
if ref $pos{$g}{$s}{$p}
|
|
666
|
0 |
0 |
if ($contents{'term2'}) { }
|
|
675
|
0 |
0 |
if $self->callback
|
|
677
|
0 |
0 |
if ($contents{'modifier'}{'-'}) { }
|
|
683
|
0 |
0 |
if (@v and ref $neg{$g}{$s}{$p})
|
|
687
|
0 |
0 |
if ($o eq "")
|
|
695
|
0 |
0 |
if ($d->[0] =~ /[_:]/) { }
|
|
|
0 |
0 |
elsif ($d->[0] =~ /[\@^]/) { }
|
|
696
|
0 |
0 |
if $d->[0] eq "_" and not $o =~ /^_:/
|
|
698
|
0 |
0 |
if ($d->[0] eq ":")
|
|
700
|
0 |
0 |
if $self->callback
|
|
711
|
0 |
0 |
$d->[0] eq '@' ? :
|
|
724
|
0 |
0 |
if ($contents{'modifier'}{'='})
|
|
740
|
0 |
0 |
if ($d->[0] =~ /[_:]/) { }
|
|
|
0 |
0 |
elsif ($d->[0] =~ /[\@^]/) { }
|
|
741
|
0 |
0 |
if $o eq ""
|
|
743
|
0 |
0 |
if $d->[0] eq "_" and not $o =~ /^_:/
|
|
745
|
0 |
0 |
if ($d->[0] eq ":")
|
|
747
|
0 |
0 |
if $self->callback
|
|
760
|
0 |
0 |
$d->[0] eq '@' ? :
|