package neb::Tree::Perl; use strict; use English; use Carp; our @ISA = ('neb::Tree::Tag'); sub code { my $self = shift; '$OUTPUT .= &{sub{' . $self->container->canonical . "}};\n"; } 1;