File Coverage

blib/lib/Data/FormValidator/Filters/Demoroniser.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 2 2 100.0
total 34 34 100.0


line stmt bran cond sub pod time code
1             package Data::FormValidator::Filters::Demoroniser;
2              
3 6     6   324445 use strict;
  6         17  
  6         266  
4 6     6   42 use warnings;
  6         13  
  6         240  
5              
6 6     6   33 use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS );
  6         17  
  6         19322  
7 6     6   13402 use Text::Demoroniser;
  6         255959  
  6         605  
8              
9             BEGIN {
10 6     6   50 require Exporter;
11 6         15 $VERSION = '0.04';
12 6         80 @ISA = qw( Exporter );
13 6         16 @EXPORT = qw();
14 6         19 %EXPORT_TAGS = (
15             'all' => [ qw( demoroniser demoroniser_utf8 ) ]
16             );
17 6         10 @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
  6         544  
18             }
19              
20             sub demoroniser {
21 3     3 1 1315 return sub { return Text::Demoroniser::demoroniser( shift ) };
  1     1   22  
22             }
23              
24             sub demoroniser_utf8 {
25 3     3 1 1360 return sub { return Text::Demoroniser::demoroniser_utf8( shift ) };
  1     1   814  
26             }
27              
28             1;
29             __END__