File Coverage

blib/lib/PDF/Make/Layer.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package PDF::Make::Layer;
2              
3 44     44   1456 use strict;
  44         100  
  44         1287  
4 44     44   200 use warnings;
  44         71  
  44         2515  
5              
6             our $VERSION = '0.03';
7              
8 44     44   170 use PDF::Make ();
  44         78  
  44         900  
9              
10             use constant {
11 44         5615 STATE_ON => 0,
12             STATE_OFF => 1,
13 44     44   174 };
  44         93  
14              
15             sub create {
16 10     10 1 291180 my ($class, $doc, $name) = @_;
17 10         139 return $class->_create($doc, $name);
18             }
19              
20             1;
21              
22             __END__