From: Robin Edwards Date: Thu, 10 Dec 2009 16:30:23 +0000 (+0000) Subject: renamed module X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d6902a328cfb0217e8b35c6b9345a1448a5cf1a;p=p5sagit%2FDevel-Declare-Keyword.git renamed module --- diff --git a/examples/Method2.pm b/examples/Methods.pm similarity index 82% rename from examples/Method2.pm rename to examples/Methods.pm index 183575f..2f79e7a 100644 --- a/examples/Method2.pm +++ b/examples/Methods.pm @@ -4,7 +4,7 @@ use Keyword; use Data::Dumper; keyword method (ident?, proto?, block) { -# $block->begin("warn 'hello from me';"); + $block->begin("warn 'hello from me';"); $block->name($ident); }; diff --git a/t/02-keyword-method.t b/t/02-keyword-method.t index f8471d9..2d22e46 100644 --- a/t/02-keyword-method.t +++ b/t/02-keyword-method.t @@ -1,11 +1,11 @@ package Foobar; use strict; use warnings; -use lib 'examples/'; -use Method2; +use lib 'examples'; +use Methods; method something ($a, $b, $c) { - warn "oooK"; + return 1; }; @@ -14,6 +14,6 @@ method something ($a, $b, $c) { use Test::More qw/no_plan/; use Data::Dumper; -Foobar->something; +ok (Foobar->something); ok 1;