File Coverage

blib/lib/PDF/Builder/Resource.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	6	66.6
condition	4	6	66.6
subroutine	8	8	100.0
pod	2	2	100.0
total	48	52	92.3

package PDF::Builder::Resource;

use base 'PDF::Builder::Basic::PDF::Dict';

use strict;
use warnings;

our $VERSION = '3.028'; # VERSION
our $LAST_UPDATE = '3.027'; # manually update whenever code is changed

use PDF::Builder::Util qw(pdfkey);
use PDF::Builder::Basic::PDF::Utils; # PDFName

use Scalar::Util qw(weaken);

=head1 NAME

PDF::Builder::Resource - Base class for PDF resources

Inherits from L<PDF::Builder::Basic::PDF::Dict>

=head1 METHODS

=head2 new

    $resource = PDF::Builder::Resource->new($pdf, $name)

=over

Returns a resource object.

=back

=cut

sub new {
    my ($class, $pdf, $name) = @_;

    $class = ref($class) if ref($class);

    my $self = $class->SUPER::new();

    $pdf->new_obj($self) unless $self->is_obj($pdf);

    $self->name($name or pdfkey());

    $self->{' apipdf'} = $pdf;
    weaken $self->{' apipdf'};

    return $self;
}

# Note: new_api() removed in favor of new():
#   new_api($api, ...)  replace with new($api->{'pdf'}, ...)

=head2 name

    $name = $resource->name() # Get

    $resource->name($name) # Set

=over

Get or set the name of the resource.

=back

=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'};
#    return $self->SUPER::outobjdeep($fh, $pdf, %options);
#}

1;