Select Code to Download

    sub foo {
        rand (2) < 1 ? 0 : bless [] => "foo"
    }

package Foo;

sub new { bless [], $_[0] }
sub confuse { bless $_[0], 'ARRAY' }