my $newobject = Subroutine->new($parent)

##</code><code>##

my $class = 'Loop';
my $newobject = $class->new($parent)

##</code><code>##

sub edit {
  my $self = shift;
  $self->(child('atoms')->[0])->edit
}