# Dyn.t use Test::More use Dyn; my @arr = Dyn::get_list(); my $test_count = scalar @arr; plan tests => $test_count; if (@arr) { foreach my $elem (@arr) { like($elem, qr/^\d+$/, q{Expect an integer}); } }