5 use System::Introspector::LibDirs::Perl;
7 my $dir = "$FindBin::Bin/data/libdir/perl";
9 no warnings 'redefine';
10 *System::Introspector::LibDirs::Perl::_open_locate_libdirs_pipe = sub {
11 my $output = "$dir/lib/perl5\n";
12 open my $fh, '<', \$output;
16 my $probe = System::Introspector::LibDirs::Perl->new(
19 my $data = $probe->gather;
21 my $sha = delete $data->{"$dir/lib/perl5"}{Foo}[0]{sha256_hex};
22 ok $sha, 'contains SHA fingerprint';
24 my $size = delete $data->{"$dir/lib/perl5"}{Foo}[0]{size};
25 ok $size, 'contains file size';
30 { file => "$dir/lib/perl5/Foo.pm", version => 0.001 },