File Coverage

blib/lib/PDF/Builder/Resource/XObject.pm
Criterion Covered Total %
statement 20 20 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 29 30 96.6


line stmt bran cond sub pod time code
1             package PDF::Builder::Resource::XObject;
2              
3 34     34   365 use base 'PDF::Builder::Resource';
  34         96  
  34         16314  
4              
5 34     34   241 use strict;
  34         75  
  34         910  
6 34     34   183 use warnings;
  34         82  
  34         1565  
7              
8             our $VERSION = '3.023'; # VERSION
9             our $LAST_UPDATE = '2.031'; # manually update whenever code is changed
10              
11 34     34   200 use PDF::Builder::Basic::PDF::Utils;
  34         94  
  34         6688  
12              
13             =head1 NAME
14              
15             PDF::Builder::Resource::XObject - Base class for external objects
16              
17             =head1 METHODS
18              
19             =over
20              
21             =item $xobject = PDF::Builder::Resource::XObject->new($pdf, $name)
22              
23             Creates an XObject resource.
24              
25             =cut
26              
27             sub new {
28 24     24 1 70 my ($class, $pdf, $name) = @_;
29              
30 24         165 my $self = $class->SUPER::new($pdf, $name);
31              
32 24         171 $self->type('XObject');
33              
34 24         59 return $self;
35             }
36              
37             =item $type = $xobject->subtype($type)
38              
39             Get or set the Subtype of the XObject resource.
40              
41             =cut
42              
43             sub subtype {
44 24     24 1 49 my $self = shift;
45              
46 24 50       70 if (scalar @_) {
47 24         84 $self->{'Subtype'} = PDFName(shift());
48             }
49 24         75 return $self->{'Subtype'}->val();
50             }
51              
52             =back
53              
54             =cut
55              
56             1;