Select Code to Download

package Junk1;

...
package main;

my $obj1 = Junk1->new( { a=>1 , b=>2, c=>3 } );

package Junk2;

...
package main;

my $obj2 = Junk2->new( { a=>1 , b=>2, c=>3 } );

package Junk3;

...
package main;

my $obj3 = Junk3->new( { a=>1 , b=>2, c=>3 } );

package Junk4;

...
    return bless $attributes, $class;
}
my $obj4 = Junk4->new( { a=>1 , b=>2, c=>3 } );

package Junk5;

...
}

my $obj5 = Junk5->new( a=>1 , b=>2, c=>3 );

# Ooooh, hash-slice.  :)
# woo, hash slice
# A slice of Hash
# Aren't hash slices lovely?
# Hash ref slice