| line |
true |
false |
branch |
|
24
|
0 |
11 |
unless my $file = $self->file |
|
37
|
0 |
0 |
unless my $from = $self->from |
|
58
|
5 |
7 |
unless my $item = $self->item($name) |
|
65
|
0 |
31 |
unless my $items = $self->list($name) |
|
66
|
30 |
1 |
if $seek |
|
74
|
8 |
160 |
if not $item->{'list'} and $item->{'name'} eq $name |
|
83
|
0 |
11 |
unless open my $fh, '<', $file |
|
91
|
0 |
35 |
unless $name |
|
96
|
161 |
773 |
if $item->{'list'} and $item->{'list'} eq $name |
|
103
|
0 |
1 |
unless my $items = $self->list($list) |
|
119
|
53 |
107 |
unless $meta and $data |
|
120
|
3 |
104 |
unless $meta ne 'cut' |
|
123
|
81 |
23 |
@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' ? : |