| line |
true |
false |
branch |
|
37
|
0 |
0 |
unless my $from = $self->from
|
|
58
|
0 |
1 |
unless my $item = $self->item($name)
|
|
65
|
0 |
1 |
unless my $items = $self->list($name)
|
|
66
|
0 |
1 |
if $seek
|
|
74
|
2 |
0 |
if not $item->{'list'} and $item->{'name'} eq $name
|
|
81
|
0 |
10 |
unless my $file = $self->file
|
|
83
|
0 |
10 |
unless open my $fh, '<', $file
|
|
91
|
0 |
3 |
unless $name
|
|
96
|
6 |
0 |
if $item->{'list'} and $item->{'list'} eq $name
|
|
103
|
0 |
1 |
unless my $items = $self->list($list)
|
|
119
|
41 |
77 |
unless $meta and $data
|
|
120
|
2 |
75 |
unless $meta ne 'cut'
|
|
123
|
58 |
17 |
@info == 2 ? :
|
|
136
|
0 |
5 |
unless $name
|
|
137
|
0 |
5 |
if not $type or $type ne 'item' and $type ne 'list'
|
|
144
|
4 |
0 |
if $type eq 'list' and $item->{'list'} and $item->{'list'} eq $name
|
|
145
|
2 |
1 |
if $type eq 'item' and $item->{'name'} and $item->{'name'} eq $name
|
|
147
|
6 |
1 |
if $matched
|
|
148
|
1 |
6 |
unless $matched
|
|
153
|
0 |
5 |
$type eq 'name' ? :
|