File Coverage

blib/lib/OPC/Root.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 25 64.0


line stmt bran cond sub pod time code
1             package OPC::Root;
2              
3 1     1   7 use strict;
  1         3  
  1         29  
4 1     1   6 use warnings;
  1         3  
  1         22  
5 1     1   5 use Carp;
  1         3  
  1         50  
6 1     1   7 use base 'OPC::Node';
  1         2  
  1         421  
7              
8             sub new {
9 0     0 0   my( $Class, %NodeParams ) = @_;
10              
11 0           my $Node = OPC::Node->new( %NodeParams, name => '/' );
12              
13 0           return bless $Node, $Class;
14             }
15              
16             sub Thumbnail {
17 0     0 0   my $self = shift;
18 0           return $self->RelatedPart( type => 'http://schemas.openxmlformats.org/package/2006/relationships/metadata/thumbnail' );
19             }
20              
21             1;