projects
/
gitmo/Moo.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Bump Role::Tiny prereq to fix method modifier breakage on 5.10.0
[gitmo/Moo.git]
/
lib
/
oo.pm
1
package oo;
2
3
use strictures 1;
4
use Moo::_Utils;
5
6
sub moo {
7
print <<'EOMOO';
8
______
9
< Moo! >
10
------
11
\ ^__^
12
\ (oo)\_______
13
(__)\ )\/\
14
||----w |
15
|| ||
16
EOMOO
17
exit 0;
18
}
19
20
BEGIN {
21
my $package;
22
sub import {
23
moo() if $0 eq '-';
24
$package = $_[1] || 'Class';
25
if ($package =~ /^\+/) {
26
$package =~ s/^\+//;
27
_load_module($package);
28
}
29
}
30
use Filter::Simple sub { s/^/package $package;\nuse Moo;\n/; }
31
}
32
33
1;