use strict;
use warnings;
-use Class::MOP;
+use Class::Load qw(load_class);
BEGIN {
my $package;
$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/; }
=head1 DESCRIPTION
-oose.pm is a simple source filter that adds C<package $name; use Moose;>
+oose.pm is a simple source filter that adds
+C<package $name; use Moose; use Moose::Util::TypeConstraints;>
to the beginning of your script and was entirely created because typing
C<perl -e'package Foo; use Moose; ...'> was annoying me.
=item B<import($package)>
-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<Class> if none is given.
=back