t/devel_callparser.t

   1 use warnings;
   2 use strict;
   3
   4 use Test::More;
   5 use Test::Requires 'Devel::CallParser';
   6
   7 plan tests => 1;
   8
   9 use Devel::CallParser ();
  10
  11 sub method {
  12         my ($usepack, $name, $inpack, $sub) = @_;
  13         no strict "refs";
  14         *{"${inpack}::${name}"} = $sub;
  15 }
  16
  17 use Devel::Declare method => sub {
  18         my ($usepack, $use, $inpack, $name) = @_;
  19         return sub (&) { ($usepack, $name, $inpack, $_[0]); };
  20 };
  21
  22 method bar {
  23         return join(",", @_);
  24 };
  25
  26 is +__PACKAGE__->bar(qw(x y)), "main,x,y";
  27
  28 1;