Perlのオブジェクトの動きを確認

bless_test.pl

#!/usr/bin/env perl
use strict;
use Data::Dumper;

my $obj = Hoge->new({
        str => 'http://hogehoge/',
        hoge => 'foobar'
    });

warn Dumper $obj;

# ${$_[0]}; とやっていることは同じなはず…!
warn Dumper ${$obj};
warn ${$obj}->{str};

# 値を変えれる
${$obj}->{str} = "http://www.perl-beginners.org/";
warn ${$obj}->{str};

# blessの引数も変わっている
warn Dumper $obj;

package Hoge {
    sub new {
        my $class = shift;
        my $opt = shift;
        bless \$opt, $class;
    }
};