use strict;
use warnings;
-our $VERSION = '0.03';
+our $VERSION = '0.05';
-use Moose ();
+use Moose 0.84 ();
use Moose::Exporter;
use Moose::Util::MetaRole;
use MooseX::SemiAffordanceAccessor::Role::Attribute;
# in $p{for_class} later.
Moose::Exporter->setup_import_methods();
-
-sub init_meta
-{
+sub init_meta {
shift;
my %p = @_;
Moose->init_meta(%p);
- return
- Moose::Util::MetaRole::apply_metaclass_roles
- ( for_class => $p{for_class},
- attribute_metaclass_roles =>
- ['MooseX::SemiAffordanceAccessor::Role::Attribute'],
- );
+ return Moose::Util::MetaRole::apply_metaclass_roles(
+ for_class => $p{for_class},
+ attribute_metaclass_roles =>
+ ['MooseX::SemiAffordanceAccessor::Role::Attribute'],
+ );
}
-
1;
__END__
=head1 COPYRIGHT & LICENSE
-Copyright 2007 Dave Rolsky, All Rights Reserved.
+Copyright 2007-2008 Dave Rolsky, All Rights Reserved.
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.