projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
f5da880057290a877f1c35b22b10b6a41e6d205d
[gitmo/Mouse.git]
/
lib
/
Mouse
/
Role.pm
1
#!/usr/bin/env perl
2
package Mouse::Role;
3
use strict;
4
use warnings;
5
6
use Sub::Exporter;
7
use Carp 'confess';
8
9
do {
10
my $CALLER;
11
12
my %exports = (
13
extends => sub {
14
return sub {
15
confess "Mouse::Role does not currently support 'extends'";
16
}
17
},
18
);
19
20
my $exporter = Sub::Exporter::build_exporter({
21
exports => \%exports,
22
groups => { default => [':all'] },
23
});
24
25
sub import {
26
$CALLER = caller;
27
28
strict->import;
29
warnings->import;
30
31
goto $exporter;
32
}
33
34
sub unimport {
35
}
36
};
37
38
1;
39