5 use System::Introspector::Probe::Perls;
8 no warnings 'redefine';
9 *System::Introspector::Probe::Perls::_find_possible_perl_configs = sub {
10 map "$FindBin::Bin/data/perls/$_/lib/Config.pm", '5.10.0', '5.14.2',
14 my $probe = System::Introspector::Probe::Perls->new(
15 root => "$FindBin::Bin/data/perls",
18 my $result = $probe->gather;
19 ok $result, 'received data';
21 is $result->{__error__}, undef, 'no errors';
23 use Data::Dump qw( pp );