package neb::Tree::Block; use strict; use English; use Carp; our @ISA = ('neb::Tree::Tag'); sub code { my $self = shift; $self->container->canonical; } 1;