File Coverage

blib/lib/SpeL/Object/Unop.pm
Criterion Covered Total %
statement 9 15 60.0
branch 0 6 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 26 50.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX operator object
3              
4              
5             package SpeL::Object::Unop;
6              
7              
8 41     41   287 use parent 'Exporter';
  41         83  
  41         247  
9 41     41   3178 use Carp;
  41         80  
  41         2909  
10              
11 41     41   253 use Data::Dumper;
  41         84  
  41         11027  
12              
13              
14              
15             sub read {
16 0     0 1   my $self = shift;
17 0           my ( $level ) = @_;
18              
19             # say STDERR Data::Dumper->Dump( [ $self ], [ 'self' ] );
20             $self->{Op} =~ /^\\overline$/ and
21             return
22             $SpeL::I18n::lh->maketext( 'Overline',
23 0 0         $self->{Arg}->read( $level + 1 ) );
24             $self->{Op} =~ /^\\log$/ and
25             return
26             $SpeL::I18n::lh->maketext( 'log',
27 0 0         $self->{Arg}->read( $level + 1 ) );
28             $self->{Op} =~ /^\\ln$/ and
29             return
30             $SpeL::I18n::lh->maketext( 'ln',
31 0 0         $self->{Arg}->read( $level + 1 ) );
32              
33 0           return 'Error: Unary operator not implemented yet';
34             }
35              
36             1;
37              
38             __END__