| line |
true |
false |
branch |
|
28
|
7 |
15 |
if (ref $data ne 'SCALAR') |
|
30
|
7 |
0 |
if length $data |
|
38
|
15 |
0 |
unless -1 == $i0 |
|
45
|
15 |
0 |
unless -1 == $i0 |
|
51
|
11 |
0 |
if (my $parent = $self->_parent) |
|
62
|
0 |
35 |
if exists $$slurp{'chomped'} and not exists $$slurp{'chomp'} |
|
64
|
2 |
33 |
if exists $$slurp{'trimmed'} and not exists $$slurp{'trim'} |
|
74
|
0 |
22 |
if (ref $slurp eq 'HASH') { } |
|
80
|
0 |
22 |
unless $slurp =~ m<^
([\@\$])?
([\(\[])
([\)\]])
(/)?
>x |
|
88
|
4 |
1 |
$1 eq '@' ? : |
|
|
5 |
17 |
if $1 |
|
89
|
20 |
2 |
$2 eq '[' ? : |
|
90
|
3 |
19 |
$3 eq ']' ? : |
|
91
|
0 |
22 |
if $4 |
|
104
|
16 |
0 |
if @_ % 2 |
|
109
|
0 |
16 |
unless $length |
|
111
|
9 |
7 |
$self->_parent ? : |
|
112
|
1 |
15 |
if $length <= $from |
|
115
|
0 |
15 |
unless $$data =~ /\G[[:ascii:]]*?($matcher)/cgm |
|
137
|
12 |
3 |
unless wantarray and my $slurp = delete $given{'slurp'} |
|
144
|
9 |
4 |
if @_ % 2 |
|
152
|
9 |
4 |
unless $slurp eq 1 |
|
155
|
11 |
2 |
if $slurp{'slurpl'} |
|
157
|
3 |
10 |
if $slurp{'slurpr'} |
|
160
|
3 |
10 |
if ($slurp{'trim'}) |
|
164
|
4 |
9 |
if (wantarray and $slurp{'wantlist'}) { } |
|
166
|
0 |
4 |
unless $slurp{'chomp'} |
|
179
|
1 |
16 |
unless $length |
|
188
|
1 |
4 |
if $self->is_root |
|
193
|
0 |
4 |
unless $length |
|
201
|
0 |
4 |
if $ii == -1 |
|
210
|
0 |
0 |
unless defined(my $match = $self->match($ii)) |
|
211
|
0 |
0 |
if (ref $is eq 'Regexp') { } |