X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Foo.pm;h=e1ea14163320cc177923d136fcedd261d484035d;hb=83ec49f2541cf72e69dc46887e7a1f0ea46ff5c2;hp=d73128d965a9a99d2679c6416491f91c853cdc1c;hpb=79cfb9196cd7a461ed8349a9d169b482ba4c25ad;p=gitmo%2FMoo.git

diff --git a/lib/oo.pm b/lib/oo.pm
index d73128d..e1ea141 100644
--- 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/^\+//;