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