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/; }