| line |
true |
false |
branch |
|
46
|
1 |
4 |
if @bad_keys |
|
67
|
1 |
3 |
if ($self->{'file_size_limit'} < 1048576) |
|
71
|
0 |
4 |
if ($self->{'namespace'}) |
|
74
|
0 |
0 |
unless ref $self->{'namespace'} |
|
77
|
0 |
0 |
if ref $self->{'namespace'} ne 'ARRAY' |
|
80
|
1 |
3 |
unless ($self->{'output_dir'}) |
|
84
|
0 |
3 |
if ($self->{'temp_dir'} and not -w $self->{'temp_dir'}) |
|
88
|
1 |
2 |
if ($self->{'move_from_temp_action'} and ref $self->{'move_from_temp_action'} ne 'CODE') |
|
100
|
0 |
3 |
if (ref $url_list ne 'ARRAY') |
|
111
|
6 |
50038 |
if ($self->_file_limit_near($tag, &bytes::length($data))) |
|
122
|
0 |
2 |
unless keys %{$$self{'tags'};} |
|
125
|
0 |
2 |
unless open my $index_file, '>' . $index_temp_file_name |
|
153
|
11 |
0 |
if ($self->{'move_from_temp_action'}) { } |
|
157
|
0 |
0 |
unless File::Copy::move($temp_file_name, $public_file_name) |
|
165
|
3 |
50041 |
unless defined $self->{'tags'}{$tag} |
|
188
|
0 |
11 |
$self->{'temp_dir'} ? : |
|
200
|
0 |
9 |
unless $self->{'tags'}{$tag}{'file'} = 'IO::Compress::Gzip'->new($temp_file->filename) |
|
210
|
0 |
9 |
if $self->{'mobile'} |
|
212
|
0 |
9 |
if $self->{'images'} |
|
214
|
0 |
9 |
if $self->{'namespace'} |
|
225
|
3 |
50068 |
unless (exists $self->{'tags'}{$tag}) |