| 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" |