Select Code to Download

 <<a>b</a>>c</<a>b</a>>

my @nodes = (
...
  }, 'Node' )
);

package Node;
use Moose;
...
sub a       { "super_$_[1]" } # prepend "super_"
sub b       { "b_$_[1]"     } # prepend "b_"
sub super_b { "B_$_[1]"     } # prepend "B_"

use overload
    q{""} => 'as_text',
    fallback => 1,
;

sub as_text {
    my ($self) = shift;
    my $processing_method = $self->tag;
    return $self->$processing_method( $self->data );
}