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

Fuga.pm

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

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

Hoge.pm

package Hoge;
use strict;
use warnings;
use Sub::Install;

#no strict 'refs';
#*{"Fuga::hoge"} = \&hoge;

Sub::Install::install_sub(
    {   
        code => \&hoge,
        into => "Fuga",
        as => "hoge",
    }
);

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

Hoge2.pm

package Hoge2;
use strict;
use warnings;
use Exporter;

our @ISA = qw/Exporter/;
our @EXPORT = qw/hoge/;

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

test.pl

use strict;
use warnings;
use Fuga;

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