File Coverage

blib/lib/Pod/POM/Node/Over.pm
Criterion Covered Total %
statement 9 13 69.2
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 18 66.6


line stmt bran cond sub pod time code
1             #============================================================= -*-Perl-*-
2             #
3             # Pod::POM::Node::Over
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             # Andrew Ford
12             #
13             # COPYRIGHT
14             # Copyright (C) 2000, 2001 Andy Wardley. All Rights Reserved.
15             # Copyright (C) 2009 Andrew Ford. All Rights Reserved.
16             #
17             # This module is free software; you can redistribute it and/or
18             # modify it under the same terms as Perl itself.
19             #
20             # REVISION
21             # $Id: Over.pm 89 2013-05-30 07:41:52Z ford $
22             #
23             #========================================================================
24              
25             package Pod::POM::Node::Over;
26             $Pod::POM::Node::Over::VERSION = '2.00';
27             require 5.006;
28 18     18   76 use strict;
  18         30  
  18         376  
29 18     18   75 use warnings;
  18         29  
  18         447  
30              
31 18     18   73 use parent qw( Pod::POM::Node );
  18         27  
  18         80  
32              
33             our @ATTRIBS = ( indent => 4 );
34             our @ACCEPT = qw( over item begin for text verbatim code );
35             our $EXPECT = 'back';
36              
37             sub list_type {
38 0     0 0   my $self = shift;
39 0           my ($first, @rest) = $self->content;
40              
41 0           my $first_type = $first->type;
42 0           return;
43             }
44              
45              
46             1;
47              
48             =head1 NAME
49              
50             Pod::POM::Node::Over - POM '=over' node class
51              
52             =head1 SYNOPSIS
53              
54             use Pod::POM::Nodes;
55              
56             =head1 DESCRIPTION
57              
58             This class implements '=over' Pod nodes. As described by the L man page =over/=back regions are
59             used for various kinds of list-like structures (including blockquote paragraphs).
60              
61             =item 1.
62              
63             ordered list
64              
65             =item *
66              
67             text paragraph
68              
69             unordered list
70              
71             =item text
72              
73             text paragraph
74              
75             definition list
76              
77              
78              
79             =head1 AUTHOR
80              
81             Andrew Ford Ea.ford@ford-mason.co.ukE
82              
83             Andy Wardley Eabw@kfs.orgE
84              
85             =head1 COPYRIGHT
86              
87             Copyright (C) 2000, 2001 Andy Wardley. All Rights Reserved.
88              
89             Copyright (C) 2009 Andrew Ford. All Rights Reserved.
90              
91             This module is free software; you can redistribute it and/or
92             modify it under the same terms as Perl itself.
93              
94             =head1 SEE ALSO
95              
96             Consult L for a discussion of nodes.