package class;
use Data::Dumper;

use Class::MethodMaker
        get_set      =>  [ qw/ field_1 field_2 field_3 field_4 field_5/] ,
        new_with_init =>  'new',
        new_hash_init =>  'hash_init' ;

sub init {
    my $self = shift ;
    $self->hash_init(@_) ;
}
my %values = map { 'field_'.$_ => $_ } (1 .. 5 );  
my $class = class->new(\%values);
print Dumper($class);

1;


##</code><code>##

print Dumper(Class::Inspector->methods($class);