1 package Class::Tiny::_Utils;
6 our @EXPORT = qw(_getglob _install_modifier);
8 sub _getglob { no strict 'refs'; \*{$_[0]} }
10 sub _install_modifier {
11 require Class::Method::Modifiers;
12 my ($into, $type, $name, $code) = @_;
13 my $ref = ref(my $to_modify = $into->can($name));
15 # if it isn't CODE, then either we're about to die, or it's a blessed
16 # coderef - if it's a blessed coderef it might be deferred, and the
17 # user's already doing something clever so a minor speed hit is meh.
19 if ($ref && $ref ne 'CODE') {
20 require Sub::Defer; Sub::Defer::undefer_sub($to_modify);
22 Class::Method::Modifiers::install_modifier(@_);