1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/env perl use strict; use warnings; use Test::More; eval "use Test::Synopsis"; if ($@) { plan skip_all => 'Test::Synopsis required for testing'; } else { plan tests => 1; } for my $m (qw(lib/WWW/Efa.pm)) { synopsis_ok($m); }