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