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

##</code><code>##

    my $Widget;
    use My::Widget::Module( Factory=>\$Widget );

    my $dumper;
    use Devel::Peek( { Dump=>\&DumpSV } );
    use Data::Dumper( { Dump=>\&Dumper } );
    use My::Module( { Dump=>\$dumper } );

    my $flange= $Widget->new();
    $dumper->( $flange );
    Dumper( $flange );

##</code><code>##

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

##</code><code>##

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