File Coverage

blib/lib/AI/Categorizer/Document/Text.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package AI::Categorizer::Document::Text;
2              
3 8     8   6648 use strict;
  8         21  
  8         279  
4 8     8   49 use AI::Categorizer::Document;
  8         16  
  8         193  
5 8     8   39 use base qw(AI::Categorizer::Document);
  8         23  
  8         1035  
6              
7             #use Params::Validate qw(:types);
8             #use AI::Categorizer::ObjectSet;
9             #use AI::Categorizer::FeatureVector;
10              
11             ### Constructors
12              
13             sub parse {
14 4     4 1 10 my ($self, %args) = @_;
15 4         22 $self->{content} = { body => $args{content} };
16             }
17              
18             1;