File Coverage

blib/lib/SpeL/Object/Mathtotextcommand.pm
Criterion Covered Total %
statement 24 27 88.8
branch n/a
condition n/a
subroutine 8 9 88.8
pod 1 1 100.0
total 33 37 89.1


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             package SpeL::Object::Mathtotextcommand;
3             # ABSTRACT: SpeL command object
4              
5              
6 1     1   17574 use strict;
  1         3  
  1         54  
7 1     1   6 use warnings;
  1         3  
  1         99  
8              
9 1     1   7 use parent 'Exporter';
  1         3  
  1         8  
10 1     1   69 use Carp;
  1         2  
  1         82  
11              
12 1     1   7 use SpeL::Object::Option;
  1         2  
  1         41  
13 1     1   6 use SpeL::Object::ElementList;
  1         2  
  1         44  
14 1     1   5 use SpeL::Object::Command;
  1         2  
  1         36  
15 1     1   5 use SpeL::I18n;
  1         13  
  1         111  
16              
17              
18              
19             sub read {
20 0     0 1   my $self = shift;
21 0           my ( $level ) = @_;
22              
23             # this is a very dirty trick but it avoids having to duplicate
24             # the entire function.
25 0           return SpeL::Object::Command::read( $self, $level );
26             }
27              
28             1;
29              
30             __END__