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__ |