use strict;
use warnings;
-use Class::MOP;
+our $VERSION = '0.11';
use namespace::autoclean;
use Moose::Role;
after apply => sub {
- shift->apply_class_attributes(@_);
+ shift->_apply_class_attributes(@_);
};
-sub apply_class_attributes {
+sub _apply_class_attributes {
my $self = shift;
my $role = shift;
my $object = shift;
=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.