/usr/share/perl5/PDF/API2/Resource.pm is in libpdf-api2-perl 2.023-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 | package PDF::API2::Resource;
our $VERSION = '2.023'; # VERSION
use base 'PDF::API2::Basic::PDF::Dict';
use strict;
use warnings;
use PDF::API2::Util qw(pdfkey);
use PDF::API2::Basic::PDF::Utils; # PDFName
=head1 NAME
PDF::API2::Resource - Base class for PDF resources
=head1 METHODS
=over
=item $resource = PDF::API2::Resource->new($pdf, $name)
Returns a resource object.
=cut
sub new {
my ($class, $pdf, $name) = @_;
$class = ref($class) if ref($class);
my $self = $class->SUPER::new();
# Instead of having a separate new_api call, check the type here.
if ($pdf->isa('PDF::API2')) {
$self->{' api'} = $pdf;
$pdf = $pdf->{'pdf'};
}
$pdf->new_obj($self) unless $self->is_obj($pdf);
$self->name($name or pdfkey());
$self->{' apipdf'} = $pdf;
return $self;
}
# Deprecated (rolled into new)
sub new_api { my $self = shift(); return $self->new(@_); }
=item $name = $resource->name()
=item $resource->name($name)
Get or set the name of the resource.
=cut
sub name {
my $self = shift @_;
if (scalar @_ and defined $_[0]) {
$self->{'Name'} = PDFName($_[0]);
}
return $self->{'Name'}->val();
}
sub outobjdeep {
my ($self, $fh, $pdf, %options) = @_;
delete $self->{' api'};
delete $self->{' apipdf'};
$self->SUPER::outobjdeep($fh, $pdf, %options);
}
=back
=cut
1;
|