/usr/share/perl5/CAM/PDF/Node.pm is in libcam-pdf-perl 1.60-3.
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 | package CAM::PDF::Node;
use 5.006;
use warnings;
use strict;
our $VERSION = '1.60';
=head1 NAME
CAM::PDF::Node - PDF element
=head1 SYNOPSIS
my $node = CAM::PDF::Node->new('number', 1.0);
=head1 DESCRIPTION
This is a simplistic internal class for representing arbitrary PDF
data structures.
=head1 LICENSE
Same as L<CAM::PDF>
=head1 FUNCTIONS
=over
=item $pkg->new($type, $value)
=item $pkg->new($type, $value, $objnum)
=item $pkg->new($type, $value, $objnum, $gennum)
Create a new PDF element.
=cut
sub new
{
my $pkg = shift;
my $self = {
type => shift,
value => shift,
};
my $objnum = shift;
my $gennum = shift;
if (defined $objnum)
{
$self->{objnum} = $objnum;
}
if (defined $gennum)
{
$self->{gennum} = $gennum;
}
return bless $self, $pkg;
}
1;
__END__
=back
=head1 AUTHOR
See L<CAM::PDF>
=cut
|