X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2Fouse.pm;h=aac678122e2585455a5cd76ad387a80b5db7991a;hp=a932c660dec63e848413c8f96b0c0648cc0f39a7;hb=HEAD;hpb=a4b15169d428989d2e901708effe21f3eaab23b5 diff --git a/lib/ouse.pm b/lib/ouse.pm index a932c66..aac6781 100644 --- a/lib/ouse.pm +++ b/lib/ouse.pm @@ -1,8 +1,6 @@ package ouse; - use Mouse::Util; # enables strict and warnings - my $package = 'Class'; sub import { $package = $_[1] || 'Class'; @@ -28,16 +26,16 @@ ouse - syntactic sugar to make Mouse one-liners easier # loads an existing class (Mouse or non-Mouse) # and re-"opens" the package definition to make # debugging/introspection easier - perl -Mouse=+My::Class -e 'print join ", " => __PACKAGE__->meta->get_method_list' + perl -Mouse=+My::Class -e 'print join ", " => __PACKAGE__->meta->get_method_list' =head1 DESCRIPTION -F is a simple source filter that adds C -to the beginning of your script and was entirely created because typing +F is a simple source filter that adds C +to the beginning of your script and was entirely created because typing perl C<< -e'package Foo; use Mouse; ...' >> was annoying me... especially after getting used to having C<-Moose> for Moose. -=head1 INTERFACE +=head1 INTERFACE C provides exactly one method and it is automatically called by perl: