Select Code to Download

Select or download this
"Class::Next=HASH(0xdeadbeef)"->new()

    sub new {
        my $class= shift(@_);
...
            if  ref $class;
        # ...
    }

Select or download this

    sub Foo::new {
        my $class= shift(@_);
        return bless [@_], ref($class)||$class;
    }

Select or download this

    sub Bar::new {
        my $class= shift(@_);
        return bless [@_], $class;
    }

Select or download this

    my $obj= Bar->new(1,2,3);
    my $other= $obj->new(4,5,6);
    $other->twirl();

    Can't locate object method "twirl" via package "Bar=ARRAY(0xbadd0g
+5)"

Select or download this

    my $key= Win32::TieRegistry->new(
        "NameOfRegistryKeyToOpen",
...
            # Lots of other options
        },
    );

Select or download this

    my $key= $Registry->new( "NameOfRegistryKeyToOpen" );