Perl Beginners #4

my_uri.pl

#!/usr/bin/env perl
use strict;
use Data::Dumper;
my $strobj = MyURI::http->new({ str => 'http://hoge/'});

warn Dumper $strobj;
warn $strobj;

package MyURI {
    use overload (
        '""' => sub { ${$_[0]} },
    );

    sub new {
        my $class = shift;
        my $str = shift->{str};
        bless \$str => 'MyURI::http';
    }
};

package MyURI::http {
    use parent -norequire => 'MyURI';
};