File Coverage

blib/lib/PDF/Builder/Resource/Pattern.pm

Criterion	Covered	Total	%
statement	9	13	69.2
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	18	72.2

package PDF::Builder::Resource::Pattern;

use base 'PDF::Builder::Resource';

use strict;
use warnings;

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

=head1 NAME

PDF::Builder::Resource::Pattern - Support stub for fill patterns

Inherits from L<PDF::Builder::Resource>

=head1 METHODS

=head2 new

    PDF::Builder::Resource::Pattern->new()

=over

Create a new pattern object.

=back

=cut

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

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

    $self->type('Pattern');

    return $self;
}

1;