| line |
true |
false |
branch |
|
64
|
1 |
1 |
if (ref $file eq "HASH") |
|
71
|
0 |
2 |
if $file |
|
77
|
1 |
3 |
if exists $opts->{$_} |
|
82
|
0 |
2 |
if $file |
|
101
|
0 |
2 |
unless $image |
|
103
|
1 |
1 |
unless -e $image or -l $image |
|
107
|
0 |
1 |
unless ($metafile) |
|
112
|
0 |
0 |
if -r $metadata1 |
|
113
|
0 |
0 |
if -r $metadata2 |
|
117
|
0 |
1 |
unless $metafile |
|
138
|
0 |
1 |
if @fields_ext % 2 != 0 |
|
141
|
1 |
0 |
if @fields_ext > 0 |
|
161
|
1 |
1 |
if $comment |
|
162
|
1 |
1 |
if $comment |
|
177
|
1 |
1 |
if @_ |
|
215
|
0 |
1 |
unless $image |
|
217
|
0 |
1 |
unless -e $image or -l $image |
|
225
|
0 |
1 |
if (&Image::MetaData::GQview::open(my $in, "<", $ENV{'HOME'} . "/.gqview/gqviewrc")) |
|
230
|
0 |
0 |
if $line =~ /^#/ |
|
231
|
0 |
0 |
if ($line =~ /^local_metadata: (true|false)$/) |
|
233
|
0 |
0 |
$1 eq 'true' ? : |
|
239
|
0 |
1 |
if ($newimage and not $newmetafile) |
|
251
|
0 |
0 |
unless (-d $metadir or mkdir $metadir) |
|
257
|
0 |
0 |
if ($false and not $newmetafile and $metafile ne $metadata2) |
|
267
|
0 |
0 |
unless (-d $metadir or mkdir $metadir) |
|
274
|
0 |
1 |
if $false |
|
276
|
1 |
0 |
if ($self->raw) |
|
279
|
0 |
1 |
unless print $meta $self->raw |
|
302
|
0 |
4 |
unless grep {/^\Q$field\E$/s;} @{$$self{"fields"};} |
|
307
|
2 |
2 |
wantarray ? : |
|
325
|
0 |
2 |
unless grep {/^\Q$field\E$/s;} @{$$self{"fields"};} |
|
353
|
1 |
5 |
if $data eq "\n\n" |
|
366
|
3 |
1 |
unless $path =~ m[/] |