prototype now works

diff --git a/examples/Methods.pm b/examples/Methods.pm
index 8297d0f..162ee1b 100644 (file)
--- a/examples/Methods.pm
+++ b/examples/Methods.pm
@@ -5,16 +5,17 @@ use Data::Dumper;
 
 keyword method (ident?, proto?, block) {
        $block->name($ident);
-       $block->code("warn 'hello from Methods';");
+       $block->code($proto);
        $block->terminate;
 }
 
-sub action_ident {
-       return @_;
-}
+sub action_ident { shift; } # return method name
 
 sub action_proto {
-       return @_;
+       my $proto = shift;
+       $proto =~ s/\s//g;
+       $proto = "\$self,$proto" if length($proto);
+       return " my ($proto) = \@_; ";
 }
 
 1;

diff --git a/t/03-methods.t b/t/03-methods.t
index 3bc78d7..e936a75 100644 (file)
--- a/t/03-methods.t
+++ b/t/03-methods.t
@@ -4,8 +4,8 @@ use warnings;
 use lib 'examples/';
 use Methods;
 
-method something ($a, $b, $c) { 
-       return 1; 
+method add ($a, $b, $c) { 
+       return $a+$b+$c;
 }
 
 
@@ -14,6 +14,6 @@ method something ($a, $b, $c) {
 use Test::More qw/no_plan/;
 use Data::Dumper;
 
-ok (Foobar->something);
+ok (Foobar->add(1,2,3)==6);
 
 ok 1;