File Coverage

blib/lib/SpeL/Object/Squareroot.pm
Criterion Covered Total %
statement 25 25 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 35 35 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX square (or n-) root
3              
4              
5 41     41   292 use strict;
  41         88  
  41         1738  
6 41     41   232 use warnings;
  41         87  
  41         2605  
7             package SpeL::Object::Squareroot;
8              
9 41     41   245 use parent 'Exporter';
  41         84  
  41         238  
10 41     41   2359 use Carp;
  41         81  
  41         3304  
11              
12 41     41   278 use SpeL::I18n;
  41         98  
  41         1140  
13 41     41   272 use Data::Dumper;
  41         85  
  41         15342  
14              
15              
16              
17             sub read {
18 4     4 1 9 my $self = shift;
19 4         9 my ( $level ) = @_;
20              
21 4         10 my $N = 2;
22 4 100       14 if ( exists $self->{N} ) {
23 2         7 $N = $self->{N}->read( $level + 1 );
24 2         16 $N =~ s/^\s*(\w+)\s*$/$1/;
25             }
26              
27             return $SpeL::I18n::lh->maketext('Squareroot',
28             $N,
29 4         18 $self->{Argument}->read( $level + 1 ) ) . ', ';
30             }
31              
32             1;
33              
34             __END__