Dashboard
PHP:
8.1.34
OS:
Linux
User:
uid288609
/
/
usr
/
share
/
perl5
/
PDF
/
API2
/
Basic
/
PDF
đ€ Upload
đ New File
đ New Folder
Close
Editing: Null.pm
#======================================================================= # # THIS IS A REUSED PERL MODULE, FOR PROPER LICENCING TERMS SEE BELOW: # # Copyright Martin Hosken <Martin_Hosken@sil.org> # # No warranty or expression of effectiveness, least of all regarding # anyone's safety, is implied in this software or documentation. # # This specific module is licensed under the Perl Artistic License. # #======================================================================= package PDF::API2::Basic::PDF::Null; use base 'PDF::API2::Basic::PDF::Objind'; use strict; our $VERSION = '2.038'; # VERSION =head1 NAME PDF::API2::Basic::PDF::Null - PDF Null type object. This is a subclass of PDF::API2::Basic::PDF::Objind and cannot be subclassed. =head1 METHODS =cut # There is only one null object (section 3.2.8). my $null_obj = bless {}, 'PDF::API2::Basic::PDF::Null'; =head2 PDF::API2::Basic::PDF::Null->new Returns the null object. There is only one null object. =cut sub new { return $null_obj; } =head2 $s->realise Pretends to finish reading the object. =cut sub realise { return $null_obj; } =head2 $s->outobjdeep Output the object in PDF format. =cut sub outobjdeep { my ($self, $fh, $pdf) = @_; $fh->print('null'); } =head2 $s->is_obj Returns false because null is not a full object. =cut sub is_obj { return 0; } =head2 $s->copy Another no-op. =cut sub copy { return $null_obj; } =head2 $s->val Return undef. =cut sub val { return undef; ## no critic (undef is intentional) } 1;
Save
Cancel