move _getglob def above strict for elegance

diff --git a/lib/Moo/_Utils.pm b/lib/Moo/_Utils.pm
index 6bf8f22..82ecfcb 100644 (file)
--- a/lib/Moo/_Utils.pm
+++ b/lib/Moo/_Utils.pm
@@ -1,12 +1,12 @@
 package Moo::_Utils;
 
+sub _getglob { \*{$_[0]} }
+
 use strictures 1;
 use base qw(Exporter);
 
 our @EXPORT = qw(_getglob _install_modifier _load_module _maybe_load_module);
 
-sub _getglob { no strict 'refs'; \*{$_[0]} }
-
 sub _install_modifier {
   my ($into, $type, $name, $code) = @_;
 

diff --git a/lib/Role/Tiny.pm b/lib/Role/Tiny.pm
index bcaa374..669d0a3 100644 (file)
--- a/lib/Role/Tiny.pm
+++ b/lib/Role/Tiny.pm
@@ -1,5 +1,7 @@
 package Role::Tiny;
 
+sub _getglob { \*{$_[0]} }
+
 use strict;
 use warnings FATAL => 'all';
 
@@ -7,8 +9,6 @@ our %INFO;
 our %APPLIED_TO;
 our %COMPOSED;
 
-sub _getglob { no strict 'refs'; \*{$_[0]} }
-
 sub _load_module {
   return 1 if $_[0]->can('can');
   (my $proto = $_[0]) =~ s/::/\//g;