File Coverage

blib/lib/SpeL/Object/Group.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 29 29 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX group object
3              
4              
5 41     41   262 use strict;
  41         88  
  41         1489  
6 41     41   175 use warnings;
  41         79  
  41         3544  
7             package SpeL::Object::Group;
8              
9 41     41   273 use parent 'Exporter';
  41         136  
  41         841  
10 41     41   3009 use Carp;
  41         345  
  41         3313  
11              
12 41     41   248 use Data::Dumper;
  41         66  
  41         2157  
13              
14 41     41   232 use SpeL::Object::ElementList;
  41         89  
  41         4995  
15              
16              
17              
18             sub read {
19 4     4 1 5 my $self = shift;
20 4         4 my ( $level ) = @_;
21              
22 4         12 return $self->{ElementList}->read( $level + 1 );
23             }
24              
25             1;
26              
27             __END__