File Coverage

blib/lib/Pod/POM/Node/Verbatim.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition 1 3 33.3
subroutine 4 4 100.0
pod 0 1 0.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             #============================================================= -*-Perl-*-
2             #
3             # Pod::POM::Node::Verbatim
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: Verbatim.pm 89 2013-05-30 07:41:52Z ford $
22             #
23             #========================================================================
24              
25             package Pod::POM::Node::Verbatim;
26             $Pod::POM::Node::Verbatim::VERSION = '2.00';
27             require 5.006;
28 18     18   75 use strict;
  18         22  
  18         389  
29 18     18   70 use warnings;
  18         25  
  18         407  
30              
31 18     18   71 use parent qw( Pod::POM::Node );
  18         22  
  18         74  
32              
33             our @ATTRIBS = ( text => '' );
34              
35             sub present {
36 18     18 0 35 my ($self, $view) = @_;
37 18   33     41 $view ||= $Pod::POM::DEFAULT_VIEW;
38 18         75 return $view->view_verbatim($self->{ text });
39             }
40              
41             1;
42              
43             =head1 NAME
44              
45             Pod::POM::Node::Verbatim -
46              
47             =head1 SYNOPSIS
48              
49             use Pod::POM::Nodes;
50              
51             =head1 DESCRIPTION
52              
53             This module implements a specialization of the node class to represent verbatim elements.
54              
55             =head1 AUTHOR
56              
57             Andrew Ford Ea.ford@ford-mason.co.ukE
58              
59             Andy Wardley Eabw@kfs.orgE
60              
61             =head1 COPYRIGHT
62              
63             Copyright (C) 2000, 2001 Andy Wardley. All Rights Reserved.
64              
65             Copyright (C) 2009 Andrew Ford. All Rights Reserved.
66              
67             This module is free software; you can redistribute it and/or
68             modify it under the same terms as Perl itself.
69              
70             =head1 SEE ALSO
71              
72             Consult L for a discussion of nodes.