File Coverage

blib/lib/PDF/Labels.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 20 80.0


line stmt bran cond sub pod time code
1              
2             package PDF::Labels;
3 1     1   817 use strict;
  1         4  
  1         49  
4              
5              
6 1     1   6 use vars qw(@ISA);
  1         2  
  1         49  
7 1     1   591 use PDF::Labels::base;
  1         3  
  1         38  
8             @ISA=qw(PDF::Labels::base);
9              
10              
11 1     1   522 use PDF::Labels::Producer;
  1         3  
  1         60  
12              
13             sub new {
14              
15 0     0 0   my $self=shift;
16 0           return PDF::Labels::Producer->new( @_ );
17              
18             }
19              
20              
21             1;