Branch Coverage

blib/lib/Text/Split.pm
Criterion Covered Total %
branch 48 66 72.7


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') { }