package lam; use strict; use Carp; use English; use neb; our @ISA = qw'neb'; sub parse { my $self = shift; my $text = shift; if (defined $text) { my $p = new XML::Parser(Style => 'neb::LayoutParser'); $self->{PARSE} = $p->parse($text, 'lam_root_name' => $self->root); } return $self->{PARSE}; } sub execute { my $self = shift; $_->auto_align foreach ($self->parse->screen_children); $self->parse->cleanup; eval $self->code or confess $EVAL_ERROR; } 1;