view release on metacpan or  search on metacpan

lib/MooX/Role/Parameterized.pm  view on Meta::CPAN

59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
                ) if $@;
            }
 
            $INFO{$role}{code_for}->( $params, $mop );
        }
    }
 
    Moo::Role->apply_roles_to_package( $target, $role );
}
 
sub role(&) {    ##no critic (Subroutines::ProhibitSubroutinePrototypes)
    my $package = (caller)[0];
 
    $INFO{$package} ||= { is_role => 1 };
 
    croak "role subroutine called multiple times on '$package'"
      if exists $INFO{$package}{code_for};
 
    $INFO{$package}{code_for} = shift;
}