Select Code to Download

sub AUTOLOAD {
    my $_call = our $AUTOLOAD;
...
    ...
    $self->{$_call} = $_param || return $self->{$_call};
}

my $o = Foo->new(); #create new object
$o->Available_Param_List(["one", "two"]); #methods that should be avai
+lable to $o
$o->one('this will work ok');
$o->nope('this should print a warn on saying that nope is not availabl
+e for $o');