[p5sagit/Filter-Keyword.git] / t / simple.t

use strictures 1;
use Test::More qw(no_plan);
use Filter::Keyword;

BEGIN {
  (our $Kw = Filter::Keyword->new(
    target_package => __PACKAGE__,
    keyword_name => 'method'
  ))->setup;
}

method main { 'YAY '.$self };

my $x = "method foo bar baz";

method spoon { 'I HAZ A SPOON'};

warn __PACKAGE__->main;
warn __PACKAGE__->spoon;
Commit	Line	Data
3b08744b	1	use strictures 1;
	2	use Test::More qw(no_plan);
	3	use Filter::Keyword;
	4
	5	BEGIN {
	6	(our $Kw = Filter::Keyword->new(
	7	target_package => __PACKAGE__,
	8	keyword_name => 'method'
	9	))->setup;
	10	}
	11
	12	method main { 'YAY '.$self };
	13
	14	my $x = "method foo bar baz";
	15
	16	method spoon { 'I HAZ A SPOON'};
	17
	18	warn __PACKAGE__->main;
	19	warn __PACKAGE__->spoon;