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
base
mro
overload
+ Exporter
B
locale
Data::Compare
DBI
+ DBI::Const::GetInfoType
SQL::Abstract
Carp
) {
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};
}
};
}