lib/Moose/Meta/Class/Immutable/Trait.pm

   1 package Moose::Meta::Class::Immutable::Trait;
   2
   3 use strict;
   4 use warnings;
   5
   6 use Class::MOP;
   7
   8 use base 'Class::MOP::Class::Immutable::Trait';
   9
  10 sub add_role { shift->_immutable_cannot_call }
  11
  12 sub calculate_all_roles {
  13     @{ $_[0]{__immutable}{calculate_all_roles} ||= [ shift->next::method ] };
  14 }
  15
  16 1;