File Coverage

blib/lib/SpeL/Object/Power.pm
Criterion Covered Total %
statement 22 22 100.0
branch 4 4 100.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 33 33 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX power object
3              
4              
5             package SpeL::Object::Power;
6              
7 41     41   324 use SpeL::I18n;
  41         78  
  41         1834  
8 41     41   229 use SpeL::Object::MathGroup;
  41         76  
  41         1849  
9              
10 41     41   205 use parent 'Exporter';
  41         83  
  41         229  
11 41     41   2341 use Carp;
  41         74  
  41         2540  
12              
13 41     41   227 use Data::Dumper;
  41         83  
  41         9653  
14              
15              
16              
17             sub read {
18 14     14 1 31 my $self = shift;
19 14         37 my ( $level ) = @_;
20              
21 14 100       76 if( exists $self->{Transpose} ) {
22 1         20 return $SpeL::I18n::lh->maketext( "Transposed" ) . ',';
23             }
24              
25 13 100       43 if ( exists $self->{Lit} ) {
26             return $SpeL::I18n::lh->maketext( "Power",
27 11         50 '"' . $self->{Lit} . '"' ) . ', ';
28             }
29             else {
30             return $SpeL::I18n::lh->maketext( "Power",
31 2         12 $self->{Group}->read( $level + 1 ) ) . ', ';
32             }
33             }
34              
35             1;
36              
37             __END__