Or consider Class::MakeMethods which gives you your choice of definition styles:

  # Explicit
  use Class::MakeMethods 
    'Standard::Hash::scalar' => [ qw/ method names / ];

  # Autoload
  use Class::MakeMethods::Autoload 
    'Standard::Hash::scalar';

  # Attributes
  use Class::MakeMethods::Attribute;
  sub name :MakeMethod('Standard::Hash::scalar');
[download]