File Coverage

blib/lib/Text/PORE/Node/Freetext.pm

Criterion	Covered	Total	%
statement	23	26	88.4
branch	2	4	50.0
condition	2	6	33.3
subroutine	5	6	83.3
pod	0	4	0.0
total	32	46	69.5

# Freetextnode -- unparsed HTML node
# text (scalar): unparsed HTML text
package Text::PORE::Node::Freetext;

use Text::PORE::Node;
use strict;

@Text::PORE::Node::Freetext::ISA = qw(Text::PORE::Node);

sub new {
    my $type = shift;
    my $lineno = shift;
    my $text = shift;

    my $self = bless {}, ref($type) || $type;

    $self = $self->SUPER::new($lineno);
    $self->setText($text);

    bless $self, ref($type) || $type;
}

sub setText {
    my $self = shift;
    my $text = shift;

    $self->{'text'} = $text;
}

sub appendText {
    my $self = shift;
    my $text = shift;

    $self->{'text'} .= $text;
}


sub traverse {
    my $self = shift;
    my $globals = shift;

    my $return = '';

    $return .= "[Freetext:$self->{'lineno'}]" if $self->getDebug();
    $return .= $self->{'text'} if (defined $self->{'text'});

    $self->output($return);

    # note - currently this will never have any errors in it, but if we
    #  generate errors in the future, we would want to have this
    $self->errorDump();
}

1;