| line |
true |
false |
branch |
|
36
|
0 |
8 |
unless (defined $options{'filename'}) |
|
40
|
0 |
8 |
unless (defined $options{'mosaic_directory'}) |
|
52
|
1 |
7 |
unless (-d $$self{'mosaic_directory'}) |
|
60
|
7 |
1 |
if (-f $$self{'mosaic_path'}) |
|
69
|
2 |
6 |
unless ($$self{'_is_closed'}) |
|
85
|
0 |
5 |
unless defined $tag |
|
86
|
0 |
5 |
unless defined $mosaic |
|
109
|
0 |
1 |
unless defined $tag |
|
110
|
0 |
1 |
unless defined $mosaic |
|
111
|
0 |
1 |
unless defined $before_tag |
|
113
|
0 |
1 |
if $self->_valid_tag($tag) |
|
114
|
0 |
1 |
unless $self->_valid_tag($before_tag) |
|
135
|
0 |
1 |
unless defined $tag |
|
136
|
0 |
1 |
unless defined $mosaic |
|
137
|
0 |
1 |
unless defined $after_tag |
|
139
|
0 |
1 |
if $self->_valid_tag($tag) |
|
140
|
0 |
1 |
unless $self->_valid_tag($after_tag) |
|
159
|
0 |
1 |
unless defined $tag |
|
160
|
0 |
1 |
unless defined $mosaic |
|
161
|
0 |
1 |
unless $self->_valid_tag($tag) |
|
178
|
0 |
1 |
unless defined $tag |
|
179
|
0 |
1 |
unless $self->_valid_tag($tag) |
|
197
|
0 |
17 |
unless my $tag = $options{'tag'} |
|
198
|
0 |
17 |
unless $self->_valid_tag($tag) |
|
215
|
3 |
0 |
wantarray ? : |
|
225
|
0 |
1 |
unless my $tags = $options{'tags'} |
|
228
|
0 |
6 |
unless $self->_valid_tag($tag) |
|
255
|
0 |
8 |
unless my $fouth = 'IO::File'->new(">$$self{'filename'}") |
|
279
|
0 |
47 |
unless my $fouth = 'IO::File'->new(">$fn") |
|
295
|
27 |
2 |
defined $$self{'_mosaics'}{$tag} ? : |
|
296
|
2 |
27 |
unless $rc |
|
333
|
2 |
1 |
unless defined $offset |
|
336
|
11 |
6 |
if ($$self{'_mosaics'}{$tag}{'count'} >= $count) |
|
359
|
0 |
41 |
unless -f $mfn |
|
369
|
0 |
7 |
unless $$self{'_mosaics'} = retrieve($$self{'mosaic_path'}) |
|
377
|
0 |
41 |
unless my $finh = 'IO::File'->new($fn) |