line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#============================================================= -*-Perl-*- |
2
|
|
|
|
|
|
|
# |
3
|
|
|
|
|
|
|
# Pod::POM::Nodes |
4
|
|
|
|
|
|
|
# |
5
|
|
|
|
|
|
|
# DESCRIPTION |
6
|
|
|
|
|
|
|
# Module implementing specific nodes in a Pod::POM, subclassed from |
7
|
|
|
|
|
|
|
# Pod::POM::Node. |
8
|
|
|
|
|
|
|
# |
9
|
|
|
|
|
|
|
# AUTHOR |
10
|
|
|
|
|
|
|
# Andy Wardley |
11
|
|
|
|
|
|
|
# |
12
|
|
|
|
|
|
|
# COPYRIGHT |
13
|
|
|
|
|
|
|
# Copyright (C) 2000, 2001 Andy Wardley. All Rights Reserved. |
14
|
|
|
|
|
|
|
# |
15
|
|
|
|
|
|
|
# This module is free software; you can redistribute it and/or |
16
|
|
|
|
|
|
|
# modify it under the same terms as Perl itself. |
17
|
|
|
|
|
|
|
# |
18
|
|
|
|
|
|
|
# REVISION |
19
|
|
|
|
|
|
|
# $Id: Nodes.pm 76 2009-08-20 20:41:33Z ford $ |
20
|
|
|
|
|
|
|
# |
21
|
|
|
|
|
|
|
#======================================================================== |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
package Pod::POM::Nodes; |
24
|
|
|
|
|
|
|
$Pod::POM::Nodes::VERSION = '2.01'; |
25
|
|
|
|
|
|
|
require 5.006; |
26
|
|
|
|
|
|
|
require Exporter; |
27
|
|
|
|
|
|
|
|
28
|
18
|
|
|
18
|
|
88
|
use strict; |
|
18
|
|
|
|
|
32
|
|
|
18
|
|
|
|
|
448
|
|
29
|
18
|
|
|
18
|
|
84
|
use warnings; |
|
18
|
|
|
|
|
28
|
|
|
18
|
|
|
|
|
464
|
|
30
|
|
|
|
|
|
|
|
31
|
18
|
|
|
18
|
|
8151
|
use Pod::POM::Node::Pod; |
|
18
|
|
|
|
|
40
|
|
|
18
|
|
|
|
|
494
|
|
32
|
18
|
|
|
18
|
|
8323
|
use Pod::POM::Node::Head1; |
|
18
|
|
|
|
|
42
|
|
|
18
|
|
|
|
|
473
|
|
33
|
18
|
|
|
18
|
|
7717
|
use Pod::POM::Node::Head2; |
|
18
|
|
|
|
|
40
|
|
|
18
|
|
|
|
|
485
|
|
34
|
18
|
|
|
18
|
|
7950
|
use Pod::POM::Node::Head3; |
|
18
|
|
|
|
|
44
|
|
|
18
|
|
|
|
|
471
|
|
35
|
18
|
|
|
18
|
|
8028
|
use Pod::POM::Node::Head4; |
|
18
|
|
|
|
|
44
|
|
|
18
|
|
|
|
|
479
|
|
36
|
18
|
|
|
18
|
|
7822
|
use Pod::POM::Node::Over; |
|
18
|
|
|
|
|
43
|
|
|
18
|
|
|
|
|
508
|
|
37
|
18
|
|
|
18
|
|
7743
|
use Pod::POM::Node::Item; |
|
18
|
|
|
|
|
43
|
|
|
18
|
|
|
|
|
2697
|
|
38
|
18
|
|
|
18
|
|
11227
|
use Pod::POM::Node::Begin; |
|
18
|
|
|
|
|
1230
|
|
|
18
|
|
|
|
|
477
|
|
39
|
18
|
|
|
18
|
|
7669
|
use Pod::POM::Node::For; |
|
18
|
|
|
|
|
41
|
|
|
18
|
|
|
|
|
525
|
|
40
|
18
|
|
|
18
|
|
7893
|
use Pod::POM::Node::Verbatim; |
|
18
|
|
|
|
|
39
|
|
|
18
|
|
|
|
|
485
|
|
41
|
18
|
|
|
18
|
|
7974
|
use Pod::POM::Node::Code; |
|
18
|
|
|
|
|
41
|
|
|
18
|
|
|
|
|
461
|
|
42
|
18
|
|
|
18
|
|
7792
|
use Pod::POM::Node::Text; |
|
18
|
|
|
|
|
42
|
|
|
18
|
|
|
|
|
459
|
|
43
|
18
|
|
|
18
|
|
8063
|
use Pod::POM::Node::Sequence; |
|
18
|
|
|
|
|
42
|
|
|
18
|
|
|
|
|
490
|
|
44
|
18
|
|
|
18
|
|
8033
|
use Pod::POM::Node::Content; |
|
18
|
|
|
|
|
41
|
|
|
18
|
|
|
|
|
531
|
|
45
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
|
47
|
18
|
|
|
18
|
|
86
|
use vars qw( $DEBUG $ERROR @EXPORT_OK @EXPORT_FAIL ); |
|
18
|
|
|
|
|
27
|
|
|
18
|
|
|
|
|
1221
|
|
48
|
18
|
|
|
18
|
|
84
|
use parent qw( Exporter ); |
|
18
|
|
|
|
|
28
|
|
|
18
|
|
|
|
|
122
|
|
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
$DEBUG = 0 unless defined $DEBUG; |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
1; |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
=head1 NAME |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
Pod::POM::Nodes - convenience class to load all node classes |
57
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
=head1 SYNOPSIS |
59
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
use Pod::POM::Nodes; |
61
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
=head1 DESCRIPTION |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
This module implements a convenience class that simply uses all of the subclasses of Pod::POM::Node. |
65
|
|
|
|
|
|
|
(It used to include all the individual classes inline, but the node classes have been factored out |
66
|
|
|
|
|
|
|
into individual modules.) |
67
|
|
|
|
|
|
|
|
68
|
|
|
|
|
|
|
=head1 AUTHOR |
69
|
|
|
|
|
|
|
|
70
|
|
|
|
|
|
|
Andy Wardley Eabw@kfs.orgE |
71
|
|
|
|
|
|
|
|
72
|
|
|
|
|
|
|
=head1 COPYRIGHT |
73
|
|
|
|
|
|
|
|
74
|
|
|
|
|
|
|
Copyright (C) 2000, 2001 Andy Wardley. All Rights Reserved. |
75
|
|
|
|
|
|
|
|
76
|
|
|
|
|
|
|
This module is free software; you can redistribute it and/or |
77
|
|
|
|
|
|
|
modify it under the same terms as Perl itself. |
78
|
|
|
|
|
|
|
|
79
|
|
|
|
|
|
|
=head1 SEE ALSO |
80
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
Consult L for a general overview and examples of use. |
82
|
|
|
|
|
|
|
|