File Coverage

blib/lib/oos.pm

Criterion	Covered	Total	%
statement	0	6	0.0
branch	0	2	0.0
condition			n/a
subroutine	0	2	0.0
pod	0	1	0.0
total	0	11	0.0

package oos;

sub import {
    moos() if $0 eq '-';
    require Moos;
    splice @_, 0, 1, 'Moos';
    goto &Moos::import;
}

sub moos {
  print <<'EOEOMOO';
                              ______   ______
                             < Moo! > < !ooM >
                              ------   ------
                     ^__^   /                 \   ^__^
             _______/(öö)  /                   \  (oo)\_______
         /\/( ingy  /(__)                         (__)\  tsm  )\/\
            | w----||                              /  ||----w |
            ||     ||                                 ||     ||
EOEOMOO
  exit 0;
}

1;