—
—

              
package PDF::Builder::Resource::XObject;
use base 'PDF::Builder::Resource';
use strict;
use warnings;
our $VERSION = '3.027'; # VERSION
our $LAST_UPDATE = '3.027'; # manually update whenever code is changed
use PDF::Builder::Basic::PDF::Utils;
HideShow 20 lines of Pod
=head1 NAME
PDF::Builder::Resource::XObject - Base class for external objects
Inherits from L<PDF::Builder::Resource>
=head1 METHODS
=head2 new
    $xobject = PDF::Builder::Resource::XObject->new($pdf, $name)
=over
Creates an XObject resource.
=back
=cut
sub new {
    my ($class, $pdf, $name) = @_;
    my $self = $class->SUPER::new($pdf, $name);
    $self->type('XObject');
    return $self;
}
HideShow 12 lines of Pod
=head2 subtype
    $type = $xobject->subtype($type)
=over
Get or set the Subtype of the XObject resource.
=back
=cut
sub subtype {
    my $self = shift;
    if (scalar @_) {
        $self->{'Subtype'} = PDFName(shift());
    }
    return $self->{'Subtype'}->val();
}
1;