line |
true |
false |
branch |
62
|
1 |
1 |
if (ref $file eq 'HASH') |
69
|
0 |
2 |
if $file |
75
|
1 |
3 |
if exists $$opts{$_} |
80
|
0 |
2 |
if $file |
99
|
0 |
2 |
unless $image |
101
|
1 |
1 |
unless -e $image |
105
|
0 |
1 |
unless ($metafile) |
110
|
0 |
0 |
if -r $metadata1 |
111
|
0 |
0 |
if -r $metadata2 |
115
|
0 |
1 |
unless $metafile |
136
|
0 |
1 |
if @fields_ext % 2 != 0 |
139
|
1 |
0 |
if @fields_ext > 0 |
159
|
1 |
1 |
if $comment |
160
|
1 |
1 |
if $comment |
175
|
1 |
1 |
if @_ |
213
|
0 |
1 |
unless $image |
215
|
0 |
1 |
unless -e $image |
223
|
0 |
1 |
if (&open(my $in, '<', $ENV{'HOME'} . '/.gqview/gqviewrc')) |
228
|
0 |
0 |
if $line =~ /^#/ |
229
|
0 |
0 |
if ($line =~ /^local_metadata: (true|false)$/) |
231
|
0 |
0 |
$1 eq 'true' ? : |
237
|
0 |
1 |
if ($newimage and not $newmetafile) |
249
|
0 |
0 |
unless (-d $metadir or mkdir $metadir) |
255
|
0 |
0 |
if ($false and not $newmetafile and $metafile ne $metadata2) |
265
|
0 |
0 |
unless (-d $metadir or mkdir $metadir) |
272
|
0 |
1 |
if $false |
274
|
1 |
0 |
if ($self->raw) |
277
|
0 |
1 |
unless print $meta $self->raw |
300
|
0 |
4 |
unless grep {/^\Q$field\E$/s;} @{$$self{'fields'};} |
305
|
2 |
2 |
wantarray ? : |
323
|
0 |
2 |
unless grep {/^\Q$field\E$/s;} @{$$self{'fields'};} |
351
|
1 |
5 |
if $data eq "\n\n" |