Select Code to Download

my $t= XML::Twig->new( elt_class => 'my_elt_class',
                       p => sub { $_->cut         # an XML::Twig::Elt 
+method
                                    ->my_process; # a my_elt_class met
+hod
...
  { my $elt= shift;
    # stuff here
  }

  # in XML::Twig, every time it needs to create an element
  $self->{elt_class} || 'XML::Twig::Elt';
  my $element=  $elt_class->new;

#!/usr/bin/perl -w
use strict;

...
package my_elt3;

BEGIN { @my_elt3::ISA= qw(XML::Twig::Elt); }