stop depending on Scope::Guard just for tests

diff --git a/Makefile.PL b/Makefile.PL
index 646fbab..34baa98 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -14,7 +14,6 @@ WriteMakefile(
     MIN_PERL_VERSION => '5.006000',
     PREREQ_PM        => {
         'Sub::Exporter' => 0,
-        'Scope::Guard'  => 0,
     },
     (defined ${^GLOBAL_PHASE} ? (XS => {}, C => []) : ()),
 );

diff --git a/t/basic.t b/t/basic.t
index 27157c7..111dff1 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -7,7 +7,11 @@ use warnings;
 # use Test::More tests => 3;
 # use ok 'Devel::GlobalDestruction';
 
-use Scope::Guard;
+BEGIN {
+    package Test::Scope::Guard;
+    sub new { my ($class, $code) = @_; bless [$code], $class; }
+    sub DESTROY { my $self = shift; $self->[0]->() }
+}
 
 print "1..4\n";
 
@@ -24,6 +28,6 @@ ok( defined &in_global_destruction, "exported" );
 
 ok( !in_global_destruction(), "not in GD" );
 
-our $sg = Scope::Guard->new(sub { ok( in_global_destruction(), "in GD" ) });
+our $sg = Test::Scope::Guard->new(sub { ok( in_global_destruction(), "in GD" ) });