File Coverage

blib/lib/Text/Scan.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 14 16 87.5


line stmt bran cond sub pod time code
1             package Text::Scan;
2              
3             require 5.005_62;
4 35     35   314996 use strict;
  35         84  
  35         1441  
5 35     35   206 use warnings;
  35         71  
  35         10249  
6              
7             require Exporter;
8             our %EXPORT_TAGS = ( 'all' => [ qw() ] );
9             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
10             our $VERSION = '0.31';
11             our @ISA = qw(Exporter);
12              
13             require XSLoader;
14             XSLoader::load('Text::Scan', $VERSION);
15              
16             sub serialize {
17 1     1 0 431 my ($self, $filename) = @_;
18 1         293 return _serialize( $self, "$filename.trie", "$filename.vals" );
19             }
20              
21             sub restore {
22 1     1 0 155 my ($self, $filename) = @_;
23 1         149 return _restore( $self, "$filename.trie", "$filename.vals");
24             }
25              
26              
27             1;
28              
29             __DATA__