package Moose::Meta::Role::Application;
use strict;
use warnings;
use metaclass;
our $VERSION = '0.54';
our $AUTHORITY = 'cpan:STEVAN';
__PACKAGE__->meta->add_attribute('method_exclusions' => (
init_arg => 'excludes',
reader => 'get_method_exclusions',
default => sub { [] }
));
__PACKAGE__->meta->add_attribute('method_aliases' => (
init_arg => 'alias',
reader => 'get_method_aliases',
default => sub { {} }
));
sub new {
my ($class, %params) = @_;
if (exists $params{excludes}) {
# I wish we had coercion here :)
$params{excludes} = (ref $params{excludes} eq 'ARRAY'
? $params{excludes}
: [ $params{excludes} ]);
}
$class->meta->new_object(%params);
}
sub is_method_excluded {
my ($self, $method_name) = @_;
foreach (@{$self->get_method_exclusions}) {
return 1 if $_ eq $method_name;
}
return 0;
}
sub is_method_aliased {
my ($self, $method_name) = @_;
exists $self->get_method_aliases->{$method_name} ? 1 : 0
}
sub is_aliased_method {
my ($self, $method_name) = @_;
my %aliased_names = reverse %{$self->get_method_aliases};
exists $aliased_names{$method_name} ? 1 : 0;
}
sub apply {
my $self = shift;
$self->check_role_exclusions(@_);
$self->check_required_methods(@_);
$self->check_required_attributes(@_);
$self->apply_attributes(@_);
$self->apply_methods(@_);
$self->apply_override_method_modifiers(@_);
$self->apply_before_method_modifiers(@_);
$self->apply_around_method_modifiers(@_);
$self->apply_after_method_modifiers(@_);
}
sub check_role_exclusions { Carp::croak "Abstract Method" }
sub check_required_methods { Carp::croak "Abstract Method" }
sub check_required_attributes { Carp::croak "Abstract Method" }
sub apply_attributes { Carp::croak "Abstract Method" }
sub apply_methods { Carp::croak "Abstract Method" }
sub apply_override_method_modifiers { Carp::croak "Abstract Method" }
sub apply_method_modifiers { Carp::croak "Abstract Method" }
sub apply_before_method_modifiers { (shift)->apply_method_modifiers('before' => @_) }
sub apply_around_method_modifiers { (shift)->apply_method_modifiers('around' => @_) }
sub apply_after_method_modifiers { (shift)->apply_method_modifiers('after' => @_) }
1;
__END__
=pod
=head1 NAME
Moose::Meta::Role::Application - A base class for role application
=head1 DESCRIPTION
This is the abstract base class for role applications.
=head2 METHODS
=over 4
=item B<new>
=item B<meta>
=item B<get_method_exclusions>
=item B<is_method_excluded>
=item B<get_method_aliases>
=item B<is_aliased_method>
=item B<is_method_aliased>
=item B<apply>
=item B<check_role_exclusions>
=item B<check_required_methods>
=item B<check_required_attributes>
=item B<apply_attributes>
=item B<apply_methods>
=item B<apply_method_modifiers>
=item B<apply_before_method_modifiers>
=item B<apply_after_method_modifiers>
=item B<apply_around_method_modifiers>
=item B<apply_override_method_modifiers>
=back
=head1 BUGS
All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.
=head1 AUTHOR
Stevan Little E<lt>stevan@iinteractive.comE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2006-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut