File Coverage

blib/lib/SpeL/Object/Fraction.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             package SpeL::Object::Fraction;
3              
4             # ABSTRACT: LaTeX fraction object
5              
6              
7 41     41   264 use strict;
  41         80  
  41         1710  
8 41     41   214 use warnings;
  41         93  
  41         1959  
9              
10 41     41   226 use parent 'Exporter';
  41         132  
  41         234  
11 41     41   2350 use Carp;
  41         78  
  41         2788  
12              
13 41     41   279 use SpeL::Object::MathUnit;
  41         76  
  41         5072  
14              
15              
16              
17             sub read {
18 30     30 1 63 my $self = shift;
19 30         73 my ( $level ) = @_;
20              
21             return $SpeL::I18n::lh->maketext( 'Div',
22             $self->{num}->read( $level + 1 ),
23 30         157 $self->{den}->read( $level + 1 ) );
24             }
25              
26             1;
27              
28             __END__