The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
1234567891011121314151617 #!perluse strict;use warnings;use lib 't/lib';use TestHelper qw( doc );use Test::More import => [qw( done_testing ok )];my ($doc) = doc( filename => 'test-data/original-imports.pl' );ok( $doc->inspector_for('Carp'), 'Carp' );ok( $doc->inspector_for('Data::Dumper'), 'Data::Dumper' );ok( $doc->inspector_for('POSIX'), 'POSIX' );done_testing();
#!perl
use
strict;
warnings;
lib
't/lib'
;
TestHelper
qw( doc )
Test::More
import
=> [
qw( done_testing ok )
];
my
(
$doc
) = doc(
filename
=>
'test-data/original-imports.pl'
);
ok(
->inspector_for(
'Carp'
),
'Data::Dumper'
'POSIX'
done_testing();