NAME

App::WRT::MethodSpit - quickie method generation

SYNOPSIS

    # In Foo.pm:
    package Foo;
    use base 'App::WRT::MethodSpit';

    %default = (
      baz => 'bar,
      biz => 'buz'
    );

    # Set up accessor methods:
    __PACKAGE__->methodspit( keys %default );

    sub new {
      my $class = shift;
      my %params = @_;

      my %copy_of_default = %default;
      my $self = \%copy_of_default;
      bless $self, $class;

      $self->configure(%params);

      return $self;
    }

    # In calling code:
    $obj = Foo->new(
      baz => 'waffle'
    );
    say $obj->baz; # waffle
    say $obj->biz; # buz

DESCRIPTION

Cheap method generation, in place of using Class::Accessor or Object::Tiny.

Kind of stupid.