File Coverage

blib/lib/SpeL/Object/Trig.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX trigonometrics object
3              
4              
5             package SpeL::Object::Trig;
6              
7 41     41   579 use parent 'Exporter';
  41         106  
  41         249  
8 41     41   2924 use Carp;
  41         80  
  41         2511  
9              
10 41     41   218 use SpeL::I18n;
  41         89  
  41         891  
11              
12 41     41   211 use Data::Dumper;
  41         72  
  41         6437  
13              
14              
15              
16             sub read {
17 12     12 1 21 my $self = shift;
18 12         25 my ( $level ) = @_;
19              
20 12         41 $self->{Op} =~ s/rc//;
21 12         71 return $SpeL::I18n::lh->maketext( $self->{Op} );
22             }
23              
24             1;
25              
26             __END__