#!/usr/bin/perl

  package Simple;

  use Class::MethodMaker
    get_set       => [qw(Name Id Team)],
    new_hash_init => 'hash_init';

  sub init  {
    my $self   = shift;
    return $self->hash_init(%values);
  }
  1;

  use strict;
  use warnings;
  use Simple;
  use Data::Dumper;
  my $test;

line : x  $test=Simple->hash_init(Name=>'Vishi', Id=>1049,Team=>'OpenSource');
  print Dumper $test;