From 30206ad6bb4549832aafb285c7baac62ee7866e1 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 25 Jun 2013 16:09:21 -0400
Subject: allow optionally installing a require hook to track module loads

this will be more accurate about when to reload things, but uses a
require hook, which may cause issues with other modules that hook
require in an incorrect way
---
 lib/Class/Refresh.pm | 24 ++++++++++++++++++++++++
 t/moose-late-load.t  |  2 +-
 t/new-modules.t      |  2 +-
 3 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/lib/Class/Refresh.pm b/lib/Class/Refresh.pm
index 24569ab..4d3cb2f 100644
--- a/lib/Class/Refresh.pm
+++ b/lib/Class/Refresh.pm
@@ -51,6 +51,30 @@ this will likely not work.
 
 our %CACHE;
 
+sub import {
+    my $package = shift;
+    my %opts = @_;
+
+    if ($opts{track_require}) {
+        require Devel::OverrideGlobalRequire;
+        require B;
+        Devel::OverrideGlobalRequire::override_global_require(sub {
+            my $next = shift;
+            my ($file) = @_;
+
+            my $ret = $next->();
+
+            $package->_update_cache_for($file)
+                # require v5.8.1;
+                unless ref(\$file) eq 'VSTRING'
+                # require 5.008001;
+                || !(B::svref_2object(\$file)->FLAGS & B::SVf_POK());
+
+            return $ret;
+        });
+    }
+}
+
 =method refresh
 
 The main entry point to the module. The first call to C<refresh> populates a
diff --git a/t/moose-late-load.t b/t/moose-late-load.t
index ebc33ab..241f58e 100644
--- a/t/moose-late-load.t
+++ b/t/moose-late-load.t
@@ -5,7 +5,7 @@ use Test::More;
 use lib 't/lib';
 use Test::Class::Refresh;
 
-use Class::Refresh;
+use Class::Refresh track_require => 1;
 
 my $dir;
 BEGIN {
diff --git a/t/new-modules.t b/t/new-modules.t
index aae0aff..1c8f87b 100644
--- a/t/new-modules.t
+++ b/t/new-modules.t
@@ -5,7 +5,7 @@ use Test::More;
 use lib 't/lib';
 use Test::Class::Refresh;
 
-use Class::Refresh;
+use Class::Refresh track_require => 1;
 
 my $dir = prepare_temp_dir_for('new-modules');
 push @INC, $dir->dirname;
-- 
cgit v1.2.3