projects
/
gitmo/Moo.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
d73128d965a9a99d2679c6416491f91c853cdc1c
[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;