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