File Coverage

blib/lib/SpeL/Object/Document.pm
Criterion Covered Total %
statement 22 22 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 32 32 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX document object
3              
4              
5 41     41   208727 use strict;
  41         83  
  41         1483  
6 41     41   187 use warnings;
  41         74  
  41         2238  
7             package SpeL::Object::Document;
8              
9 41     41   17335 use SpeL::Object::ElementList;
  41         142  
  41         2011  
10              
11 41     41   235 use parent 'Exporter';
  41         94  
  41         215  
12 41     41   2633 use Carp;
  41         87  
  41         2194  
13              
14 41     41   207 use Data::Dumper;
  41         73  
  41         4017  
15              
16              
17             sub new {
18 134     134 1 394 my $class = shift;
19 134         368 my ( $self ) = @_;
20 134 100       545 $self = {} unless $self;
21 134         2182 bless $self, $class;
22             }
23              
24              
25              
26             1;
27              
28             __END__