Skip to content
Newer
Older
100644 14 lines (9 sloc) 215 Bytes
ac0f019 @rafl Add tests for quoted method names with variable interpolations.
rafl authored
1 use strict;
2 use warnings;
3 use Test::More tests => 2;
4
5 use MooseX::Method::Signatures;
6
7 my $foo = 'bar';
8
9 method "$foo" ($class:) { $foo }
10
11 my $meth = __PACKAGE__->can($foo);
12 ok($meth);
13 is(__PACKAGE__->$meth, $foo);
Something went wrong with that request. Please try again.