Select Code to Download

package Obj;

use Moose;
...
package main;

my $obj = Obj->new( a => 10 );

sub initialize
{
    my $self = shift;
...
        $self->{$key} = $value;
    }
}