Select Code to Download

# sub new { bless \pop, shift }
sub new { my $self = pop; bless \$self, shift }

MyNumber->new([ 0 .. 100 ]);
MyNumber->new({ test => 1});
MyNumber->new(*STDOUT);