X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F53lean_startup.t;h=b590b4a19741d1d13349a22a1d51ad7213654527;hb=a5280453bd7fc86157fb4a84a451bddc2c408bf7;hp=7e81af25cd9c9bdd415e95ad8a042a845bac5d65;hpb=8273e845426f0187b4ad6c4a1b42286fa09a648f;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/53lean_startup.t b/t/53lean_startup.t
index 7e81af2..b590b4a 100644
--- a/t/53lean_startup.t
+++ b/t/53lean_startup.t
@@ -17,7 +17,7 @@ BEGIN {
 use strict;
 use warnings;
 use Test::More;
-use Data::Dumper;
+use DBICTest::Util 'stacktrace';
 
 # Package::Stash::XS is silly and fails if a require hook contains regular
 # expressions on perl < 5.8.7. Load the damned thing if the case
@@ -35,12 +35,13 @@ BEGIN {
     base
     mro
     overload
+    Exporter
 
     B
-    locale
-
+    Devel::GlobalDestruction
     namespace::clean
     Try::Tiny
+    Context::Preserve
     Sub::Name
 
     Scalar::Util
@@ -49,12 +50,15 @@ BEGIN {
     Data::Compare
 
     DBI
+    DBI::Const::GetInfoType
     SQL::Abstract
 
     Carp
 
     Class::Accessor::Grouped
     Class::C3::Componentised
+    Moo
+    Sub::Quote
   /, $] < 5.010 ? ( 'Class::C3', 'MRO::Compat' ) : () }; # this is special-cased in DBIx/Class.pm
 
   $test_hook = sub {
@@ -91,13 +95,7 @@ BEGIN {
     ) {
       fail ("Unexpected require of '$req' by $caller[0] ($caller[1] line $caller[2])");
 
-      if ($ENV{TEST_VERBOSE}) {
-        my ($i, @stack) = 1;
-        while (my @f = caller($i++) ) {
-          push @stack, \@f;
-        }
-        diag Dumper(\@stack);
-      }
+      diag( 'Require invoked' .  stacktrace() ) if $ENV{TEST_VERBOSE};
     }
   };
 }