gistfile1.pl

package Sample::Accessor;
use strict;
use warnings;

use base qw(Class::Accessor::Fast);

__PACKAGE__->mk_accessors(qw(hoge fuga));

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

    # hogehoge

    return $class->SUPER::new($args);
}

1;

package main;

my $accessor = Sample::Accessor->new({hoge => 'hoge', fuga => 'fuga'});

use Data::Dumper;
warn Dumper($accessor);