t/foreign/Method-Signatures/anon.t

   1 #!perl
   2 use strict;
   3 use warnings FATAL => 'all';
   4
   5 use Test::More 'no_plan';
   6
   7 {
   8     package Stuff;
   9
  10     use Test::More;
  11     use Function::Parameters qw(:strict);
  12
  13     method echo($arg) {
  14         return $arg
  15     }
  16
  17     my $method = method ($arg) {
  18         return $self->echo($arg)
  19     };
  20
  21     is( Stuff->$method("foo"), "foo" );
  22 }