package Moose::Meta::Class::Immutable::Trait;
BEGIN {
$Moose::Meta::Class::Immutable::Trait::AUTHORITY = 'cpan:STEVAN';
}
{
$Moose::Meta::Class::Immutable::Trait::VERSION = '2.1005';
}
use strict;
use warnings;
use Class::MOP;
use Scalar::Util qw( blessed );
use base 'Class::MOP::Class::Immutable::Trait';
sub add_role { $_[1]->_immutable_cannot_call }
sub calculate_all_roles {
my $orig = shift;
my $self = shift;
@{ $self->{__immutable}{calculate_all_roles} ||= [ $self->$orig ] };
}
sub calculate_all_roles_with_inheritance {
my $orig = shift;
my $self = shift;
@{ $self->{__immutable}{calculate_all_roles_with_inheritance} ||= [ $self->$orig ] };
}
sub does_role {
shift;
my $self = shift;
my $role = shift;
(defined $role)
|| $self->throw_error("You must supply a role name to look for");
$self->{__immutable}{does_role} ||= { map { $_->name => 1 } $self->calculate_all_roles_with_inheritance };
my $name = blessed $role ? $role->name : $role;
return $self->{__immutable}{does_role}{$name};
}
1;
# ABSTRACT: Implements immutability for metaclass objects
__END__
=pod
=head1 NAME
Moose::Meta::Class::Immutable::Trait - Implements immutability for metaclass objects
=head1 VERSION
version 2.1005
=head1 DESCRIPTION
This class makes some Moose-specific metaclass methods immutable. This
is deep guts.
=head1 BUGS
See L<Moose/BUGS> for details on reporting bugs.
=head1 AUTHOR
Moose is maintained by the Moose Cabal, along with the help of many contributors. See L<Moose/CABAL> and L<Moose/CONTRIBUTORS> for details.
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Infinity Interactive, Inc..
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut