File Coverage

blib/lib/Text/Mining/Parser.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Text::Mining::Parser;
2 1     1   1965 use base qw(Text::Mining::Base);
  1         2  
  1         120  
3             use Class::Std;
4             use Class::Std::Utils;
5             use Module::Runtime qw(use_module);
6              
7             use warnings;
8             use strict;
9             use Carp;
10              
11             use version; our $VERSION = qv('0.0.8');
12              
13             # Super alpha
14             our $parsers = { 1 => 'Text',
15             2 => 'PubMedCentral' };
16              
17             {
18             no warnings 'redefine';
19             sub new {
20             my ($self, $arg_ref) = @_;
21             return use_module('Text::Mining::Parser::' . $arg_ref->{parser}, 0.0.1)->new( $arg_ref );
22             }
23              
24             }
25              
26             1; # Magic true value required at end of module
27             __END__