line |
true |
false |
branch |
39
|
0 |
4 |
if (defined $Parse::Plain::lcnt_max and not $Parse::Plain::lcnt_max =~ /^\d+$/) |
42
|
4 |
0 |
unless $Parse::Plain::lcnt_max |
44
|
0 |
4 |
if (defined $Parse::Plain::lcnt_max and not $Parse::Plain::lcnt_max =~ /^\d+$/) |
47
|
4 |
0 |
unless $Parse::Plain::ssec |
54
|
8 |
51 |
if ($line =~ /^\s*{{\s*([\!\w\d\.-_]+)$/) |
55
|
6 |
2 |
if $block_open |
58
|
1 |
7 |
if (substr($1, 0, 1) eq '!') { } |
66
|
6 |
2 |
if $$block |
67
|
7 |
1 |
unless $s_block |
73
|
8 |
43 |
if ($line =~ /^\s*}}(.*)$/ and $block_open) |
74
|
6 |
2 |
if not $1 and $$block |
77
|
2 |
6 |
$1 ? : |
83
|
0 |
4 |
if ($block_open) |
105
|
0 |
8 |
unless ($_[0]) |
111
|
1 |
7 |
if (ref $_[0] eq 'HASH') { } |
|
7 |
0 |
elsif (not ref $_[0]) { } |
115
|
0 |
3 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
125
|
1 |
6 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
147
|
0 |
7 |
unless ($_[0]) |
154
|
1 |
6 |
if (ref $_[0] eq 'ARRAY') { } |
|
6 |
0 |
elsif (not ref $_[0]) { } |
179
|
0 |
2 |
unless ($_[0]) |
185
|
1 |
1 |
if (ref $_[0] eq 'HASH') { } |
|
1 |
0 |
elsif (not ref $_[0]) { } |
189
|
0 |
2 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
200
|
0 |
1 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
223
|
0 |
2 |
unless ($_[0]) |
229
|
1 |
1 |
if (ref $_[0] eq 'HASH') { } |
|
1 |
0 |
elsif (not ref $_[0]) { } |
233
|
0 |
2 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
246
|
0 |
1 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
274
|
0 |
5 |
unless ($bl) |
278
|
4 |
1 |
if (defined $$self{'hparse'}{'!' . $bl}) { } |
300
|
0 |
7 |
unless ($arr[0]) |
305
|
0 |
7 |
if (ref $arr[0] eq 'ARRAY') { } |
|
1 |
6 |
elsif (ref $arr[0] eq 'HASH') { } |
|
6 |
0 |
elsif (not ref $arr[0]) { } |
313
|
0 |
1 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
324
|
0 |
6 |
if ($val) |
325
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
353
|
0 |
7 |
unless ($arr[0]) |
359
|
0 |
7 |
if (ref $arr[0] eq 'ARRAY') { } |
|
0 |
7 |
elsif (ref $arr[0] eq 'HASH') { } |
|
7 |
0 |
elsif (not ref $arr[0]) { } |
363
|
0 |
0 |
if (defined $$self{'hparse'}{$blf}) { } |
374
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
386
|
0 |
7 |
if ($val) |
387
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
394
|
5 |
2 |
if (defined $$self{'hparse'}{$blf}) { } |
419
|
0 |
0 |
unless ($bl) |
423
|
0 |
0 |
if (defined $$self{'hparse'}{'!' . $bl}) { } |
441
|
0 |
1 |
unless ($_[0]) |
447
|
1 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
0 |
0 |
elsif (not ref $_[0]) { } |
451
|
0 |
1 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
462
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
485
|
0 |
1 |
unless ($_[0]) |
491
|
1 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
0 |
0 |
elsif (not ref $_[0]) { } |
496
|
0 |
1 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
508
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
535
|
0 |
0 |
unless ($bl) |
539
|
0 |
0 |
if (defined $$self{'hparse'}{'!' . $bl}) { } |
558
|
0 |
1 |
unless ($_[0]) |
564
|
1 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
0 |
0 |
elsif (not ref $_[0]) { } |
568
|
0 |
1 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
581
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
607
|
0 |
1 |
unless ($_[0]) |
613
|
1 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
0 |
0 |
elsif (not ref $_[0]) { } |
618
|
0 |
1 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
632
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
659
|
0 |
3 |
unless ($block) |
665
|
2 |
1 |
if (ref $block eq 'ARRAY') { } |
|
1 |
0 |
elsif (not ref $block) { } |
707
|
0 |
1 |
unless ($arr[0]) |
711
|
1 |
0 |
if (ref $arr[0] eq 'ARRAY') { } |
|
0 |
0 |
elsif (not ref $arr[0]) { } |
753
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
782
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
804
|
0 |
2 |
unless ($arr[0]) |
810
|
1 |
1 |
if (ref $arr[0] eq 'ARRAY') { } |
|
0 |
1 |
elsif (ref $arr[0] eq 'HASH') { } |
|
1 |
0 |
elsif (not ref $arr[0]) { } |
818
|
0 |
0 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
829
|
1 |
0 |
if ($val) |
830
|
0 |
1 |
if (UNIVERSAL::isa($val, 'Parse::Plain')) { } |
857
|
0 |
1 |
if (ref $arr[0] eq 'HASH') { } |
|
1 |
0 |
elsif (not ref $arr[0]) { } |
859
|
0 |
0 |
if $tmp =~ /:/ |
865
|
0 |
1 |
if $arr[0] =~ /:/ |
891
|
9 |
8 |
if ($href) |
893
|
1 |
0 |
if (UNIVERSAL::isa($$href{$_}, 'Parse::Plain')) { } |
901
|
8 |
9 |
if (not $href) { } |
|
9 |
0 |
elsif ($usehparse) { } |
907
|
73 |
0 |
unless defined $$lref{$_} |
913
|
14 |
0 |
unless defined $$lref{$_} |
920
|
13 |
4 |
if ($block) { } |
923
|
26 |
0 |
if ref $$self{'cback'}{$cback} eq 'CODE' |
929
|
1 |
3 |
if (defined $$self{'parsed'}) |
935
|
4 |
0 |
if ref $$self{'cback'}{$cback} eq 'CODE' |
959
|
0 |
1 |
if ($#_ == -1) { } |
965
|
1 |
0 |
if (ref $_[0] eq 'ARRAY') { } |
|
0 |
0 |
elsif (not ref $_[0]) { } |
969
|
1 |
0 |
if (defined $$self{'hparse'}{$keyf}) |
980
|
0 |
0 |
if (defined $$self{'hparse'}{$keyf}) |
1030
|
0 |
2 |
unless $arg |
1047
|
0 |
6 |
unless (-f $filename) |
1051
|
0 |
6 |
unless (-r $filename) |
1057
|
6 |
0 |
if (open TMPL, '<' . $filename) { } |
|
0 |
0 |
elsif ($lcnt >= $Parse::Plain::lcnt_max) { } |
1066
|
0 |
0 |
if $Parse::Plain::ssec |