File Coverage

blib/lib/HTML/Content/Extractor.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 25 25 100.0


line stmt bran cond sub pod time code
1             package HTML::Content::Extractor;
2              
3 12     12   20470 use utf8;
  12         120  
  12         57  
4 12     12   436 use strict;
  12         16  
  12         473  
5 12     12   74 use vars qw($AUTOLOAD $VERSION $ABSTRACT @ISA @EXPORT);
  12         20  
  12         1911  
6              
7             BEGIN {
8 12     12   27 $VERSION = 0.17;
9 12         20 $ABSTRACT = "Recieving main text of publication from HTML page and main media content that is bound to the text";
10            
11 12         226 @ISA = qw(Exporter DynaLoader);
12 12         599 @EXPORT = qw(
13             AI_NULL AI_TEXT AI_LINK AI_IMG
14             TYPE_TAG_NORMAL TYPE_TAG_BLOCK TYPE_TAG_INLINE TYPE_TAG_SIMPLE TYPE_TAG_SIMPLE_TREE TYPE_TAG_ONE TYPE_TAG_TEXT TYPE_TAG_SYS
15             DEFAULT_TAG_ID
16             EXTRA_TAG_CLOSE_IF_BLOCK EXTRA_TAG_CLOSE_IF_SELF EXTRA_TAG_CLOSE_IF_SELF_FAMILY EXTRA_TAG_CLOSE_NOW EXTRA_TAG_SIMPLE EXTRA_TAG_SIMPLE_TREE EXTRA_TAG_CLOSE_PRIORITY EXTRA_TAG_CLOSE_FAMILY_LIST EXTRA_TAG_CLOSE_PRIORITY_FAMILY
17             FAMILY_H FAMILY_TABLE FAMILY_LIST FAMILY_RUBY FAMILY_SELECT FAMILY_HTML
18             OPTION_NULL OPTION_CLEAN_TAGS OPTION_CLEAN_TAGS_SAVE
19             );
20             };
21              
22             bootstrap HTML::Content::Extractor $VERSION;
23              
24 12     12   86 use DynaLoader ();
  12         23  
  12         221  
25 12     12   57 use Exporter ();
  12         17  
  12         289  
26              
27              
28              
29             1;
30              
31             __END__