File Coverage

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


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX Number object
3              
4              
5 41     41   276 use strict;
  41         89  
  41         1631  
6 41     41   192 use warnings;
  41         70  
  41         2685  
7             package SpeL::Object::Number;
8              
9 41     41   296 use parent 'Exporter';
  41         70  
  41         224  
10 41     41   2184 use Carp;
  41         105  
  41         2793  
11              
12 41     41   234 use Data::Dumper;
  41         308  
  41         6371  
13              
14              
15              
16             sub read {
17 100     100 1 291 my $self = shift;
18 100         185 my ( $level ) = @_;
19              
20             return ( exists $self->{imag} ? ' ' . $self->{imag} : '' )
21 100 100       501 . $self->{Realnumber}->read( $level + 1 );
22             }
23              
24             1;
25              
26             __END__