gistfile1.pl

use strict;
use warnings;

use parent qw/Hoge::Fuga/;

sub new {
    my ($class, @args) = @_;

    my $self = $class->SUPER::new(@_);

    $self->{hogehoge} = 'unko';

    return $self;
}