File Coverage

blib/lib/Text/Markup/Trac.pm
Criterion Covered Total %
statement 24 24 100.0
branch 4 6 66.6
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 34 37 91.8


line stmt bran cond sub pod time code
1             package Text::Markup::Trac;
2              
3 1     1   42508 use 5.8.1;
  1         5  
4 1     1   6 use strict;
  1         2  
  1         22  
5 1     1   6 use warnings;
  1         3  
  1         31  
6 1     1   6 use File::BOM qw(open_bom);
  1         2  
  1         102  
7 1     1   8 use Text::Trac 0.10;
  1         32  
  1         8  
8              
9             our $VERSION = '0.25';
10              
11             sub parser {
12 2     2 0 9 my ($file, $encoding, $opts) = @_;
13 2 50       5 my $trac = Text::Trac->new(@{ $opts || [] });
  2         19  
14 2         39 open_bom my $fh, $file, ":encoding($encoding)";
15 2         703 local $/;
16 2         62 my $html = $trac->parse(<$fh>);
17 2 100       74496 return unless $html =~ /\S/;
18 1         32 utf8::encode($html);
19 1 50       7 return $html if $opts->{raw};
20 1         60 return qq{
21            
22            
23            
24            
25             $html
26            
27            
28             };
29              
30             }
31              
32             1;
33             __END__