/usr/share/perl5/PDF/API2/Resource.pm is in libpdf-api2-perl 2.020-2.
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 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 | package PDF::API2::Resource;
our $VERSION = '2.020'; # VERSION
use base 'PDF::API2::Basic::PDF::Dict';
use PDF::API2::Util;
use PDF::API2::Basic::PDF::Utils;
no warnings qw[ deprecated recursion uninitialized ];
=head1 NAME
PDF::API2::Resource - generic PDF::API2 resource class
=head1 METHODS
=over
=item $res = PDF::API2::Resource->new $pdf, $name
Returns a resource object.
=cut
sub new {
my ($class,$pdf,$name) = @_;
my $self;
$class = ref $class if ref $class;
$self=$class->SUPER::new();
$pdf->new_obj($self) unless($self->is_obj($pdf));
$self->name($name || pdfkey());
$self->{' apipdf'}=$pdf;
return($self);
}
=item $res = PDF::API2::Resource->new_api $api, $name
Returns a resource object. This method is different from 'new' that
it needs an PDF::API2-object rather than a Text::PDF::File-object.
=cut
sub new_api {
my ($class,$api,@opts)=@_;
my $obj=$class->new($api->{pdf},@opts);
$obj->{' api'}=$api;
return($obj);
}
=item $name = $res->name $name
Returns or sets the Name of the resource.
=cut
sub name {
my $self=shift @_;
if(scalar @_ >0 && defined($_[0])) {
$self->{Name}=PDFName($_[0]);
}
return($self->{Name}->val);
}
sub outobjdeep {
my ($self, $fh, $pdf, %opts) = @_;
return $self->SUPER::outobjdeep($fh, $pdf) if defined $opts{'passthru'};
foreach my $k (qw/ api apipdf /) {
$self->{" $k"}=undef;
delete($self->{" $k"});
}
$self->SUPER::outobjdeep($fh, $pdf, %opts);
}
1;
__END__
=back
=head1 AUTHOR
Alfred Reibenschuh
=cut
|