X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Foose.pm;h=cd87abccfa9b9ad8b27fc65706e17aef96d1e2b3;hb=52a6510c87c1b1fa96a6d503f2daa19c058a308d;hp=b580e962d38c6fc010dbe0c2ab570f2ce063b2e8;hpb=d5f6cadef8d83deaf7dd95302908cd4f61aeab8a;p=gitmo%2FMoose.git diff --git a/lib/oose.pm b/lib/oose.pm index b580e96..cd87abc 100644 --- a/lib/oose.pm +++ b/lib/oose.pm @@ -3,7 +3,7 @@ package oose; use strict; use warnings; -use Class::MOP; +use Class::Load qw(load_class); BEGIN { my $package; @@ -11,7 +11,7 @@ BEGIN { $package = $_[1] || 'Class'; if ($package =~ /^\+/) { $package =~ s/^\+//; - Class::MOP::load_class($package); + load_class($package); } } use Filter::Simple sub { s/^/package $package;\nuse Moose;use Moose::Util::TypeConstraints;\n/; } @@ -40,7 +40,8 @@ __END__ =head1 DESCRIPTION -oose.pm is a simple source filter that adds C +oose.pm is a simple source filter that adds +C to the beginning of your script and was entirely created because typing C was annoying me. @@ -52,7 +53,8 @@ oose provides exactly one method and it's automatically called by perl: =item B -Pass a package name to import to be used by the source filter. +Pass a package name to import to be used by the source filter. The +package defaults to C if none is given. =back