line |
true |
false |
branch |
37
|
1 |
0 |
unless my $from = $self->from
|
63
|
0 |
2 |
unless my $item = $self->item($name)
|
70
|
0 |
3 |
unless my $items = $self->list($name)
|
71
|
0 |
3 |
if $seek
|
79
|
3 |
0 |
if not $item->{'list'} and $item->{'name'} eq $name
|
88
|
1 |
12 |
unless $file and -f $file
|
90
|
0 |
12 |
unless open my $fh, '<', $file
|
98
|
0 |
5 |
unless $name
|
103
|
9 |
0 |
if $item->{'list'} and $item->{'list'} eq $name
|
110
|
0 |
1 |
unless my $items = $self->list($list)
|
126
|
49 |
89 |
unless $meta and $data
|
127
|
2 |
87 |
unless $meta ne 'cut'
|
130
|
69 |
18 |
@info == 2 ? :
|
144
|
0 |
5 |
unless $name
|
145
|
0 |
5 |
if not $type or $type ne 'item' and $type ne 'list'
|
152
|
4 |
0 |
if $type eq 'list' and $item->{'list'} and $item->{'list'} eq $name
|
153
|
2 |
1 |
if $type eq 'item' and $item->{'name'} and $item->{'name'} eq $name
|
155
|
6 |
1 |
if $matched
|
156
|
1 |
6 |
unless $matched
|
161
|
0 |
5 |
$type eq 'name' ? :
|