#!/usr/bin/perl
my $required = do { local $/; <DATA> };
throws_ok
{ CPANfile::Parse::PPI->new( \$required ) }
qr/Cannot handle dynamic code/
;
done_testing();
__DATA__
for my $module (qw/
IO::All
Zydeco::Lite::App
/) {
requires qq~$module~, '0';
}