[Perl] 객체에 해쉬 넘기기 ..

aero님의 도움으로 성공

객체를 생성하고 해쉬를 넘기는데 잘않되서 열심히 커뮤니티에 물어봐서 성공했습니다

아래는 예제 입니다

{
    package Person;

    sub new{
        my $class = shift;
        my $self = {
            _firstName => shift,
            _lastName => shift,
            _hash => shift,
        };
        bless $self,$class;
        return $self;
    }

    sub print{
        my ($self) = shift;
    while(my ($key,$value) = each( %{$self->{_hash}} ) ){
        print "$key is $value \n";
    }
    }
}

use Data::Dumper;
my $p = Person->new('first','last',{a=>1,b=>2,b=>3});
$p->print()

참고할 자료로 이런 자료들을 주셧습니다.
http://codepad.org/lfvi5X1D
http://perlkr.codepad.org/IltB5s80