use util routine to get stash

[gitmo/Moo.git] / lib / oo.pm

diff --git a/lib/oo.pm b/lib/oo.pm
index d73128d..e1ea141 100644 (file)
--- a/lib/oo.pm
+++ b/lib/oo.pm
@@ -3,9 +3,24 @@ package oo;
 use strictures 1;
 use Moo::_Utils;
 
+sub moo {
+  print <<'EOMOO';
+ ______
+< Moo! >
+ ------
+        \   ^__^
+         \  (oo)\_______
+            (__)\       )\/\
+                ||----w |
+                ||     ||
+EOMOO
+  exit 0;
+}
+
 BEGIN {
     my $package;
     sub import {
+        moo() if $0 eq '-';
         $package = $_[1] || 'Class';
         if ($package =~ /^\+/) {
             $package =~ s/^\+//;