view release on metacpan or  search on metacpan

lib/Acme/WalkMethods.pm  view on Meta::CPAN

=cut

use vars qw ( $AUTOLOAD $VERSION );
$VERSION = '0.1';

sub new {
    my ($proto,$conf) = @_;
    my $class = ref($proto) || $proto;
    my $self = {};
	bless($self, $class);
	return $self;
}

sub AUTOLOAD {
    my $name = $AUTOLOAD;
    $name =~ s/.*://;

	if(!defined $_[0]->{$name} && defined $_[1]) {
		print "Can I create '$name' as a method (y/N)?";
		my $input = <STDIN>;