File Coverage

blib/lib/StaticVolt/Convertor/Textile.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             # ABSTRACT: StaticVolt convertor for textile
2              
3             package StaticVolt::Convertor::Textile;
4             {
5             $StaticVolt::Convertor::Textile::VERSION = '1.00';
6             }
7              
8 4     4   25 use strict;
  4         29  
  4         177  
9 4     4   20 use warnings;
  4         8  
  4         137  
10              
11 4     4   21 use base qw( StaticVolt::Convertor );
  4         7  
  4         390  
12              
13 4     4   5263 use Text::Textile qw( textile );
  4         355896  
  4         621  
14              
15             sub convert {
16 0     0 1   my $content = shift;
17 0           return textile $content;
18             }
19              
20             __PACKAGE__->register(qw/ textile /);
21              
22             1;
23              
24             __END__