| line |
true |
false |
branch |
|
34
|
0 |
0 |
if ($env->{'embed'} <= 1) { } |
|
37
|
0 |
0 |
$env->{'embed'} ? : |
|
|
0 |
0 |
unless 'PDF::API2::Annotation'->can($env->{'embed'} ? 'fileattachment' : 'file') |
|
41
|
0 |
0 |
unless 'PDF::API2'->can('embeddedfile') |
|
49
|
0 |
0 |
if (@{$env->{'targets'};}) { } |
|
65
|
0 |
0 |
if (@_ == 2) { } |
|
|
0 |
0 |
elsif (@_ == 3) { } |
|
68
|
0 |
0 |
if $env->{'verbose'} |
|
69
|
0 |
0 |
unless $pdf = 'PDF::API2'->open($pdfname) |
|
78
|
0 |
0 |
if /^\.\w+$/ |
|
102
|
0 |
0 |
unless (-r $_) |
|
111
|
0 |
0 |
unless ($p) |
|
118
|
0 |
0 |
if ($action eq 'attached') |
|
127
|
0 |
0 |
unless ($page) |
|
130
|
0 |
0 |
if ($env->{'xpos'} >= 0) { } |
|
135
|
0 |
0 |
unless $env->{'vertical'} |
|
137
|
0 |
0 |
if ($env->{'ypos'} >= 0) { } |
|
142
|
0 |
0 |
if $env->{'vertical'} |
|
152
|
0 |
0 |
$embed ? : |
|
158
|
0 |
0 |
if ($action eq 'embedded') { } |
|
173
|
0 |
0 |
if ($env->{'border'}) |
|
179
|
0 |
0 |
if ($env->{'vertical'}) { } |
|
186
|
0 |
0 |
unless $pdfname |
|
189
|
0 |
0 |
if ($env->{'output'}) { } |
|
|
0 |
0 |
elsif ($did) { } |
|
190
|
0 |
0 |
if $env->{'verbose'} |
|
192
|
0 |
0 |
if $env->{'verbose'} |
|
195
|
0 |
0 |
if $env->{'verbose'} |
|
197
|
0 |
0 |
if $env->{'verbose'} |
|
200
|
0 |
0 |
if $env->{'verbose'} |
|
212
|
0 |
0 |
unless ($csvname) |
|
217
|
0 |
0 |
if $env->{'verbose'} |
|
218
|
0 |
0 |
unless my $pdf = 'PDF::API2'->open($pdfname) |
|
226
|
0 |
0 |
if $env->{'verbose'} |
|
231
|
0 |
0 |
unless open my $fh, '<:encoding(utf8)', $csvname |
|
240
|
0 |
0 |
unless defined $row->[$i] |
|
241
|
0 |
0 |
if lc $row->[$i] eq 'title' |
|
242
|
0 |
0 |
if lc $row->[$i] eq 'pages' |
|
243
|
0 |
0 |
if lc $row->[$i] eq 'xpos' |
|
244
|
0 |
0 |
if lc $row->[$i] eq 'ypos' |
|
246
|
0 |
0 |
unless defined $i_title |
|
248
|
0 |
0 |
unless defined $i_pages |
|
251
|
0 |
0 |
if $env->{'verbose'} |
|
255
|
0 |
0 |
if $pageno =~ /^(\d+)/ |
|
256
|
0 |
0 |
if $env->{'verbose'} |
|
260
|
0 |
0 |
if $^O =~ /win/i |
|
269
|
0 |
0 |
if $env->{'verbose'} |
|
271
|
0 |
0 |
if $env->{'verbose'} |
|
294
|
0 |
0 |
if (defined $appname) { } |
|
336
|
0 |
0 |
if ($App::Packager::PACKAGED) |
|
349
|
0 |
0 |
unless (&GetOptions($clo, 'output|pdf=s', 'embed', 'attach', sub {
$clo->{'embed'} = 2;
}
, 'all', 'xpos=i', 'ypos=i', 'iconsz|iconsize|icon=i', 'icons=s%', 'padding=i', 'vertical', 'border', 'gfunder', 'targets|t=s@', 'ident', \$ident, 'help|?', \$help, 'manual', \$man, 'verbose|v', 'trace', 'debug', 'version', sub {
app_ident(\*STDOUT);
exit;
}
)) |
|
380
|
0 |
0 |
if $ident or $help |
|
381
|
0 |
0 |
if ($man or $help) |
|
382
|
0 |
0 |
if $help |
|
383
|
0 |
0 |
if $man |
|
389
|
0 |
0 |
if (@{$options->{'targets'};}) { } |
|
391
|
0 |
0 |
unless @ARGV |
|
392
|
0 |
0 |
if $options->{'pdf'} and @ARGV > 1 |
|
395
|
0 |
0 |
if @ARGV < 1 or @ARGV > 2 |
|
403
|
0 |
0 |
$my_package ? : |
|
706
|
0 |
0 |
if ref($self->{'Annots'}) =~ /Objind/ |
|
707
|
0 |
0 |
if ($self->{'Annots'}->is_obj($self->{' apipdf'})) { } |
|
722
|
0 |
0 |
if ($self->{'Annots'}->is_obj($self->{' apipdf'})) |
|
743
|
0 |
0 |
if exists $opts{'-icon'} |
|
744
|
0 |
0 |
if defined $opts{'-rect'} |
|
745
|
0 |
0 |
if defined $opts{'-border'} |
|
748
|
0 |
0 |
if exists $opts{'-text'} |
|
750
|
0 |
0 |
if (&is_utf8($file)) |
|
779
|
0 |
0 |
if $icon and not ref $icon |
|
794
|
0 |
0 |
if @r |
|
795
|
0 |
0 |
if @b |
|
798
|
0 |
0 |
if $icon |
|
806
|
0 |
0 |
unless $self->{'Subtype'}->val eq 'FileAttachment' |
|
808
|
0 |
0 |
if defined $opts{'-rect'} |
|
809
|
0 |
0 |
unless scalar @r == 4 |
|
813
|
0 |
0 |
if ($icon eq 'None') { } |
|
|
0 |
0 |
elsif (ref $icon) { } |
|
928
|
0 |
0 |
if (&is_utf8($file)) |