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