lib/Moo/_Utils.pm

   1 package Moo::_Utils;
   2
   3 sub _getglob { \*{$_[0]} }
   4 sub _getstash { \%{"$_[0]::"} }
   5
   6 BEGIN {
   7   *lt_5_8_3 = $] < 5.008003
   8     ? sub () { 1 }
   9     : sub () { 0 }
  10   ;
  11 }
  12
  13 use strictures 1;
  14 use base qw(Exporter);
  15
  16 our @EXPORT = qw(_getglob _install_modifier _load_module _maybe_load_module);
  17
  18 sub _install_modifier {
  19   my ($into, $type, $name, $code) = @_;
  20
  21   if (my $to_modify = $into->can($name)) { # CMM will throw for us if not
  22     require Sub::Defer;
  23     Sub::Defer::undefer_sub($to_modify);
  24   }
  25
  26   Class::Method::Modifiers::install_modifier(@_);
  27 }
  28
  29 our %MAYBE_LOADED;
  30
  31 # _load_module is inlined in Role::Tiny - make sure to copy if you update it.
  32
  33 sub _load_module {
  34   (my $proto = $_[0]) =~ s/::/\//g;
  35   return 1 if $INC{"${proto}.pm"};
  36   # can't just ->can('can') because a sub-package Foo::Bar::Baz
  37   # creates a 'Baz::' key in Foo::Bar's symbol table
  38   return 1 if grep !/::$/, keys %{_getstash($_[0])||{}};
  39   require "${proto}.pm";
  40   return 1;
  41 }
  42
  43 sub _maybe_load_module {
  44   return $MAYBE_LOADED{$_[0]} if exists $MAYBE_LOADED{$_[0]};
  45   (my $proto = $_[0]) =~ s/::/\//g;
  46   if (eval { require "${proto}.pm"; 1 }) {
  47     $MAYBE_LOADED{$_[0]} = 1;
  48   } else {
  49     if (exists $INC{"${proto}.pm"}) {
  50       warn "$_[0] exists but failed to load with error: $@";
  51     }
  52     $MAYBE_LOADED{$_[0]} = 0;
  53   }
  54   return $MAYBE_LOADED{$_[0]};
  55 }
  56
  57 1;