perlで別のモジュールのメソッドを生やす　その２

Fuga.pm

package Fuga;
use strict;
use warnings;
use Hoge;

use Sub::Install;
Sub::Install::install_sub({ code => \&Hoge::hoge });

sub new {
    my ($class) = @_;
    my $self = bless {}, $class;
    $self->{'foo'} = 'bar';
    return $self;
}
1;

Hoge.pm

package Hoge2;
use strict;
use warnings;

sub hoge {
    my $c = shift;
    print $c->{'foo'} . "\n";
}
1;

test.pl

use strict;
use warnings;
use Fuga;

my $fuga = Fuga->new;
$fuga->hoge;