4 use Class::Tiny::_Utils;
8 *{_getglob("${target}::extends")} = sub {
9 *{_getglob("${target}::ISA")} = \@_;
11 *{_getglob("${target}::with")} = sub {
13 die "Only one role supported at a time by with" if @_ > 1;
14 Role::Tiny->apply_role_to_package($_[0], $target);
16 foreach my $type (qw(before after around)) {
17 *{_getglob "${target}::${type}"} = sub {
18 _install_modifier($target, $type, @_);
23 @{"${target}::ISA"} = do {
24 require Class::Tiny::Object; ('Class::Tiny::Object');
25 } unless @{"${target}::ISA"};