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