BEGIN {
package MyFramework::Base;
use Moose;
-
+
package MyFramework::Meta::Base;
- use Moose;
-
- extends 'Moose::Meta::Class';
-
+ use Moose;
+
+ extends 'Moose::Meta::Class';
+
package MyFramework;
use Moose;
strict->import;
warnings->import;
-
+
return if $CALLER eq 'main';
Moose::init_meta( $CALLER, 'MyFramework::Base', 'MyFramework::Meta::Base' );
Moose->import({ into => $CALLER });
}
}
-{
+{
package MyClass;
BEGIN { MyFramework->import }
-
+
has 'foo' => (is => 'rw');
}