Doc::Perlish::DOM::Text - text node in a Perldoc::DOM tree

Doc-Perlish documentation Contained in the Doc-Perlish distribution.

Index

Code Index:

NAME

Top

Doc::Perlish::DOM::Text - text node in a Perldoc::DOM tree

SYNOPSIS

Top

See Doc::Perlish::DOM::Node.

DESCRIPTION

Top

A Doc::Perlish::DOM::Text represents a little slice of content in a Perldoc DOM tree.

It has one property - content.

The constructor for this class has a special shortcut syntax compared to normal Doc::Perlish::DOM::Node's / Tree::DAG_Node's - instead of specifying options as a hash;

 Doc::Perlish::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Doc::Perlish::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, though this is marginal in string COW environments)

Doc-Perlish documentation Contained in the Doc-Perlish distribution. 
package Doc::Perlish::DOM::Text;
use Doc::Perlish::DOM::Node -Base;


field 'content';

sub _init {
    my $o = shift;

    $self->content($o->{content}) if exists $o->{content};

    super($o);
}

sub new {
    if ( ref $_[0] ) {
	super(@_);
    } else {
	my $text = shift;
	my $o = shift || {};
	$o->{content} = $text;
	super($o);
    }
}

sub source {
    if ( @_ ) {
	super;
    } elsif ( $self->{source} ) {
	$self->{source};
    } else {
	$self->{content};
    }
}

sub dom_fields {
    super, qw(content);
}

sub dom_attr {
    my $a = super;
    if ( wantarray ) {
	my $chars = delete $a->{content};
	delete $a->{source} if (defined($a->{source}) and
				$a->{source} eq $chars);
	if ( keys %$a ) {
	    return ($chars, $a);
	} else {
	    return $chars;
	}
    } else {
	$a;
    }
}

sub event_type {
    return "characters";
}