projects
/
gitmo/Role-Tiny.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Explicitly return the DOES coderef if we install it
[gitmo/Role-Tiny.git]
/
t
/
role-basic
/
lib
/
TestMethods.pm
1
package TestMethods;
2
3
use strict;
4
use warnings;
5
6
sub import {
7
my ( $class, @methods ) = @_;
8
my $target = caller;
9
10
foreach my $method (@methods) {
11
my $fq_method = $target . "::$method";
12
no strict 'refs';
13
*$fq_method = sub {
14
local *__ANON__ = "__ANON__$fq_method";
15
my $self = shift;
16
return $self->{$method} unless @_;
17
$self->{$method} = shift;
18
return $self;
19
};
20
}
21
}
22
23
1;