projects
/
gitmo/Moo.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
fix up tests to new calling convention
[gitmo/Moo.git]
/
lib
/
oo.pm
1
package oo;
2
3
use strictures 1;
4
use Moo::_Utils;
5
6
BEGIN {
7
my $package;
8
sub import {
9
$package = $_[1] || 'Class';
10
if ($package =~ /^\+/) {
11
$package =~ s/^\+//;
12
_load_module($package);
13
}
14
}
15
use Filter::Simple sub { s/^/package $package;\nuse Moo;\n/; }
16
}
17
18
1;