| line |
true |
false |
branch |
|
36
|
0 |
0 |
if (ref $data ne 'SCALAR')
|
|
38
|
0 |
0 |
if length $data
|
|
48
|
0 |
0 |
unless -1 == $i0
|
|
57
|
0 |
0 |
unless -1 == $i0
|
|
65
|
0 |
0 |
if (my $parent = $self->_parent)
|
|
81
|
0 |
0 |
if exists $slurp->{'chomped'} and not exists $slurp->{'chomp'}
|
|
83
|
0 |
0 |
if exists $slurp->{'trimmed'} and not exists $slurp->{'trim'}
|
|
94
|
0 |
0 |
if (ref $slurp eq 'HASH') { }
|
|
100
|
0 |
0 |
unless $slurp =~ m<^
([\@\$])?
([\(\[])
([\)\]])
(/)?
>x
|
|
108
|
0 |
0 |
$1 eq '@' ? :
|
|
|
0 |
0 |
if $1
|
|
109
|
0 |
0 |
$2 eq '[' ? :
|
|
110
|
0 |
0 |
$3 eq ']' ? :
|
|
111
|
0 |
0 |
if $4
|
|
128
|
0 |
0 |
if @_ % 2
|
|
133
|
0 |
0 |
unless $length
|
|
135
|
0 |
0 |
$self->_parent ? :
|
|
136
|
0 |
0 |
if $length <= $from
|
|
139
|
0 |
0 |
unless $$data =~ /\G[[:ascii:]]*?($matcher)/cgm
|
|
161
|
0 |
0 |
unless wantarray and my $slurp = delete $given{'slurp'}
|
|
170
|
0 |
0 |
if @_ % 2
|
|
178
|
0 |
0 |
unless $slurp eq 1
|
|
181
|
0 |
0 |
if $slurp{'slurpl'}
|
|
183
|
0 |
0 |
if $slurp{'slurpr'}
|
|
186
|
0 |
0 |
if ($slurp{'trim'})
|
|
190
|
0 |
0 |
if (wantarray and $slurp{'wantlist'}) { }
|
|
192
|
0 |
0 |
unless $slurp{'chomp'}
|
|
207
|
0 |
0 |
unless $length
|
|
221
|
0 |
0 |
if $self->is_root
|
|
226
|
0 |
0 |
unless $length
|
|
239
|
0 |
0 |
if $ii == -1
|
|
250
|
0 |
0 |
unless defined(my $match = $self->match($ii))
|
|
251
|
0 |
0 |
if (ref $is eq 'Regexp') { }
|