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   <abw@kfs.org>
11#   Andrew Ford    <a.ford@ford-mason.co.uk>
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
25package Pod::POM::Node::Verbatim;
26$Pod::POM::Node::Verbatim::VERSION = '2.01';
27require 5.006;
28use strict;
29use warnings;
30
31use parent qw( Pod::POM::Node );
32
33our @ATTRIBS = ( text => '' );
34
35sub present {
36    my ($self, $view) = @_;
37    $view ||= $Pod::POM::DEFAULT_VIEW;
38    return $view->view_verbatim($self->{ text });
39}
40
411;
42
43=head1 NAME
44
45Pod::POM::Node::Verbatim -
46
47=head1 SYNOPSIS
48
49    use Pod::POM::Nodes;
50
51=head1 DESCRIPTION
52
53This module implements a specialization of the node class to represent verbatim elements.
54
55=head1 AUTHOR
56
57Andrew Ford E<lt>a.ford@ford-mason.co.ukE<gt>
58
59Andy Wardley E<lt>abw@kfs.orgE<gt>
60
61=head1 COPYRIGHT
62
63Copyright (C) 2000, 2001 Andy Wardley.  All Rights Reserved.
64
65Copyright (C) 2009 Andrew Ford.  All Rights Reserved.
66
67This module is free software; you can redistribute it and/or
68modify it under the same terms as Perl itself.
69
70=head1 SEE ALSO
71
72Consult L<Pod::POM::Node> for a discussion of nodes.
73