gistfile1.txt

#!/usr/bin/env perl
package Hoge{
    sub new {
        my $class = shift;
        my $args = ref $_[0] ? $_[0] : +{@_};
        
        $args->{package} = __PACKAGE__;
        bless $args, $class;
    }

    sub say_package{
        shift->{package};
    }
}

package Fuga{
    use base qw/Hoge/;
}

package main;
say new Fuga->say_package(); # Fugaって出て欲しいのにHogeって出る