package Node;
use Moose;

has [ qw<data tag> ] 
    => ( is => 'rw', isa => 'Any' );

sub as_text {
    my ($self) = shift;
    my $tag = $self->tag;
    my $tag_processing_method = ref $tag ? $tag->as_text : $tag;
    return $self->$tag_processing_method( $self->data );
}

# Tag Processing Methods here:
sub a       { "super_$_[1]" } # prepend "super_"
sub b       { "b_$_[1]"     } # prepend "b_"
sub super_b { "B_$_[1]"     } # prepend "B_"