Select Code to Download

package My

...
# rest of methods
sub method1 { ... }
sub method2 { ... }

package My::XML;

...

sub _init { ... }
1;

use My;

my $obj = My->new(source=>"xml");
# Do whatever with $obj