| 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 |