Select Code to Download

my $x = My->new(source=>"xml");
my $y = My->new(source=>"json");

package My::XML;
use My;
...
my $x = My::XML->new;
my $y = My::JSON->new;