The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more
1234567891011121314151617181920212223 #!/usr/bin/env perluse strict;use warnings;use lib 'test-data/lib', 't/lib';use TestHelper qw( source2pi );use Test::More import => [qw( done_testing is )];use Test::Needs qw( Pithub );my $pi = source2pi( 'test-data/pithub.pl', 'use Pithub;',);is( $pi->formatted_ppi_statement, 'use Pithub ();', 'removes implicit export for Moo OO class');done_testing();
#!/usr/bin/env perl
use
strict;
warnings;
lib
'test-data/lib'
,
't/lib'
;
TestHelper
qw( source2pi )
Test::More
import
=> [
qw( done_testing is )
];
Test::Needs
qw( Pithub )
my
$pi
= source2pi(
'test-data/pithub.pl'
'use Pithub;'
);
is(
->formatted_ppi_statement,
'use Pithub ();'
'removes implicit export for Moo OO class'
done_testing();