t/simple.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 sub method {
   6   my ($usepack, $name, $inpack, $sub) = @_;
   7   no strict 'refs';
   8   *{"${inpack}::${name}"} = $sub;
   9 }
  10
  11 sub handle_method {
  12   my ($usepack, $use, $inpack, $name) = @_;
  13   return sub (&) { ($usepack, $name, $inpack, $_[0]); };
  14 }
  15
  16 use Devel::Declare 'method' => \&handle_method;
  17
  18 my ($args1, $args2);
  19
  20 method bar {
  21   $args1 = join(', ', @_);
  22 };
  23
  24 method # blather
  25   baz
  26   # whee
  27 { # fweet
  28   $args2 = join(', ', @_);
  29 };
  30
  31 __PACKAGE__->bar(qw(1 2));
  32 __PACKAGE__->baz(qw(3 4));
  33
  34 is($args1, 'main, 1, 2', 'Method bar args ok');
  35 is($args2, 'main, 3, 4', 'Method baz args ok');
  36
  37 done_testing;