Select Code to Download

    my $ArrayList= use Perl::Util::ArrayList;
    my $a= $ArrayList->new();

    my $Widget;
    use My::Widget::Module( Factory=>\$Widget );
...
    my $flange= $Widget->new();
    $dumper->( $flange );
    Dumper( $flange );

    my $factory= require My::Object::Module;

    package My::Object::Module;
    # ...
...
    }
    # ...
    \&factory;    # a 'true' value