t/simple.t

   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;