| line |
true |
false |
branch |
|
47
|
0 |
0 |
if (my $json = $file->slurp)
|
|
48
|
0 |
0 |
if (my $perl = eval {
do {
&JSON::from_json($json)
}
})
|
|
59
|
0 |
0 |
if (my $json = &JSON::to_json($self->metadata || {}))
|
|
60
|
0 |
0 |
if (my $fh = $file->openw)
|
|
75
|
0 |
0 |
if (-e $meta_path and not $meta_path->remove)
|
|
78
|
0 |
0 |
if (-e $file_path and not $file_path->remove)
|
|
87
|
0 |
0 |
if return -e $self->path
|
|
92
|
0 |
0 |
if (my $type = $self->mime_type)
|
|
93
|
0 |
0 |
if (my $ext = File::MimeInfo::extensions($type))
|
|
97
|
0 |
0 |
if ($self->has_property('original_name'))
|
|
98
|
0 |
0 |
if ($self->get_property('original_name') =~ /\.(\w+)$/)
|
|
107
|
0 |
0 |
if $self->has_property('mime-type')
|
|
108
|
0 |
0 |
if (my $type = File::MimeInfo::Magic::mimetype($self->path->stringify))
|