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


line stmt bran cond sub pod time code
1             package PDF::Builder::Resource::Pattern;
2              
3 34     34   262 use base 'PDF::Builder::Resource';
  34         89  
  34         3755  
4              
5 34     34   249 use strict;
  34         81  
  34         741  
6 34     34   209 use warnings;
  34         94  
  34         4193  
7              
8             our $VERSION = '3.023'; # VERSION
9             our $LAST_UPDATE = '2.031'; # manually update whenever code is changed
10              
11             =head1 NAME
12              
13             PDF::Builder::Resource::Pattern - support stub for patterns. Inherits from L
14              
15             =cut
16              
17             sub new {
18 0     0 1   my ($class, $pdf, $name) = @_;
19              
20 0           my $self = $class->SUPER::new($pdf, $name);
21              
22 0           $self->type('Pattern');
23              
24 0           return $self;
25             }
26              
27             1;