File Coverage

blib/lib/Paper/Specs/photo.pm
Criterion Covered Total %
statement 6 7 85.7
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 11 72.7


line stmt bran cond sub pod time code
1              
2             package Paper::Specs::photo;
3 1     1   1202 use strict;
  1         3  
  1         31  
4 1     1   5 use base qw(Paper::Specs::base::brand);
  1         3  
  1         260  
5              
6             =head1 Paper::Standard
7              
8             Standard / well known paper formats
9              
10             =cut
11              
12             sub specs {
13              
14             return {
15 0     0 0   name_short => "photo",
16             name_long => "Standard photo paper sizes",
17             };
18              
19             }
20              
21             1;
22