File Coverage

blib/lib/SpeL/Object/Environment.pm
Criterion Covered Total %
statement 21 26 80.7
branch 0 2 0.0
condition n/a
subroutine 7 8 87.5
pod 1 1 100.0
total 29 37 78.3


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX environment object
3              
4              
5 41     41   258 use strict;
  41         70  
  41         1454  
6 41     41   200 use warnings;
  41         77  
  41         2684  
7             package SpeL::Object::Environment;
8              
9 41     41   975 use SpeL::Object::Option;
  41         72  
  41         1850  
10 41     41   231 use SpeL::Object::ElementList;
  41         73  
  41         1577  
11              
12 41     41   202 use parent 'Exporter';
  41         70  
  41         282  
13 41     41   2469 use Carp;
  41         74  
  41         2496  
14              
15 41     41   220 use Data::Dumper;
  41         96  
  41         7743  
16              
17             our $environmenthash = {};
18              
19              
20              
21              
22             sub read {
23 0     0 1   my $self = shift;
24 0           my ( $level ) = @_;
25              
26 0 0         $self->{'tag'} =~ /^center$/ and do { return $self->{ElementList}->read( $level + 1 ); };
  0            
27              
28 0           return "Error: unknown environment";
29             }
30              
31              
32             1;
33              
34             __END__