BAIL_OUT
>;
+sub default_exports { @default_exports }
+
sub check_imports {
my %imported = map { $_ => 1 } @{ $_[0] || [] };
my @not_imported = @{ $_[1] || [] };
local $Test::Builder::Level = ($Test::Builder::Level || 0) + 1;
my $use_fallback = $ENV{PERL_TEST_LEANER_USES_TEST_MORE};
- if ($use_fallback and $^V ge v5.8.4 and $^V le v5.8.5) {
+ if ($use_fallback and "$]" >= 5.008_004 and "$]" <= 5.008_005) {
Test::More::plan(skip_all
=> 'goto may segfault randomly on perl 5.8.4 and 5.8.5');
} else {
}
}
-our @EXPORT = qw<
+our @EXPORT_OK = qw<
+ get_subroutine
+ has_module_version
+ has_test_more_version
+ has_exporter_version
+ default_exports
test_import_arg
>;