File Coverage

blib/lib/SpeL/Object/TokenSequence.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 30 30 100.0


line stmt bran cond sub pod time code
1             # -*- cperl -*-
2             # ABSTRACT: LaTeX token sequence object
3              
4              
5 41     41   275 use strict;
  41         93  
  41         1619  
6 41     41   193 use warnings;
  41         93  
  41         2512  
7             package SpeL::Object::TokenSequence;
8              
9 41     41   225 use parent 'Exporter';
  41         69  
  41         255  
10 41     41   2839 use Carp;
  41         117  
  41         2754  
11              
12 41     41   218 use Data::Dumper;
  41         611  
  41         8807  
13              
14              
15              
16             sub read {
17 81     81 1 170 my $self = shift;
18 81         176 my ( $level ) = @_;
19              
20 81         217 my $tokensequence = $self->{''};
21 81         259 $tokensequence =~ s/~+/ /g;
22 81         177 $tokensequence =~ s/\\\$/dollar/g;
23 81         181 $tokensequence =~ s/\\%/ percent/g;
24 81         185 $tokensequence =~ s/\\_/_/g;
25 81         543 return $tokensequence;
26             }
27              
28             1;
29              
30             __END__