From: Robin Edwards Date: Fri, 11 Dec 2009 13:44:40 +0000 (+0000) Subject: played with adding parse kw, gonna wait X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d43b8eaf84804eb495b5e126c0c25c916fc5649d;p=p5sagit%2FDevel-Declare-Keyword.git played with adding parse kw, gonna wait --- diff --git a/lib/Keyword.pm b/lib/Keyword.pm index 35eee57..ae70efe 100644 --- a/lib/Keyword.pm +++ b/lib/Keyword.pm @@ -17,7 +17,7 @@ our $KW_MODULE = caller; sub import { Devel::Declare->setup_for( $KW_MODULE, - { keyword => { const => \&sig_parser } } + { keyword => { const => \&keyword_parser } } ); no strict 'refs'; @@ -31,9 +31,7 @@ sub import { } #parses keyword signature -sub sig_parser { - - +sub keyword_parser { my $parser = Keyword::Parser->new; $parser->next_token; $parser->skip_ws; diff --git a/t/02-syntax.t b/t/02-syntax.t index d8413cd..afb8096 100644 --- a/t/02-syntax.t +++ b/t/02-syntax.t @@ -7,6 +7,5 @@ keyword method (ident?, proto?, thing, block) { ok 1; } - ok 1;