File Coverage

lib/YAX/Text.pm

Criterion	Covered	Total	%
statement	26	35	74.2
branch	5	8	62.5
condition			n/a
subroutine	11	13	84.6
pod	6	8	75.0
total	48	64	75.0

package YAX::Text;

use strict;

use base qw/YAX::Node/;

use Scalar::Util qw/weaken/;
use YAX::Constants qw/TEXT_NODE/;

use overload '""' => \&as_string, fallback => 1;

sub TEXT () { 0 }
sub PRNT () { 1 }

sub new {
    my ( $class, $data ) = @_;
    bless [ $data, undef ], $class;
}

sub type { TEXT_NODE }
sub name { '#text' }
sub data { $_[0][TEXT] = $_[1] if @_ == 2; $_[0][TEXT] }

sub clone {
    my $self = shift;
    return ref( $self )->new( $self->data );
}

sub parent { weaken( $_[0][PRNT] = $_[1] ) if @_ == 2; $_[0][PRNT] }

sub as_string {
    return '' unless defined $_[0][TEXT];
    return '' unless length ($_[0][TEXT]);
    $_[0][TEXT];
}

sub entityfy {
    my $text = shift;
    $text =~ s/&/&/g;
    $text =~ s/
    $text =~ s/>/>/g;
    $text =~ s/'/'/g;
    $text =~ s/"/"/g;
    $text;
}

1;
__END__