use strict;
use warnings;
+our $VERSION = '0.13';
+
use Moose::Util::MetaRole;
use MooseX::ClassAttribute::Trait::Application::ToClass;
-use MooseX::ClassAttribute::Trait::Application::ToInstance;
use namespace::autoclean;
use Moose::Role;
with 'MooseX::ClassAttribute::Trait::Application';
-sub apply_class_attributes {
+sub _apply_class_attributes {
my $self = shift;
my $role1 = shift;
my $role2 = shift;
['MooseX::ClassAttribute::Trait::Application::ToClass'],
application_to_role =>
['MooseX::ClassAttribute::Trait::Application::ToRole'],
- application_to_instance => [
- 'MooseX::ClassAttribute::Trait::Application::ToInstance'
- ],
},
);
=head1 COPYRIGHT & LICENSE
-Copyright 2007-2008 Dave Rolsky, All Rights Reserved.
+Copyright 2007-2010 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.