File Coverage

blib/lib/CAM/XML/Text.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	8	0.0
condition	0	2	0.0
subroutine	2	6	33.3
pod	3	3	100.0
total	11	38	28.9

package CAM::XML::Text;

use warnings;
use strict;

our $VERSION = '1.14';

=head1 NAME

CAM::XML::Text - XML text nodes

=head1 LICENSE

Copyright 2006 Clotho Advanced Media, Inc.,

This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=head1 DESCRIPTION

This is a helper class to hold text data

=head1 FUNCTIONS

=over

=item $pkg->new($type, $text)

=cut

sub new
{
   my $pkg  = shift;
   my $type = shift || 'none';
   my $text = shift;

   if (!defined $text)
   {
      $text = q{};
   }
   return bless {
      type => $type,
      text => $text,
   }, $pkg;
}

=item $self->toString()

=cut

sub toString
{
   my $self = shift;
   return $self->{type} eq 'text'  ? CAM::XML->_XML_escape($self->{text})    ##no critic for use of private sub
        : $self->{type} eq 'cdata' ? CAM::XML->_CDATA_escape($self->{text})  ##no critic for use of private sub
        : $self->{text};
}

=item $self->getInnerText()

=cut

sub getInnerText
{
   my $self = shift;
   return $self->{text};
}

sub _get_path_nodes
{
   my $self = shift;
   my $path = shift;

   return $path ? () : ($self);
}

1;
__END__