# Dyn.pm
package Dyn;
use strict;
use warnings;

# Return a list with a random number of elements
sub get_list {
	my @arr = ();
	push @arr, $_ for (0 .. int(rand(10)));
	return @arr;
}

1;
__END__

##</code><code>##

# Dyn.t

use Test::More qw ( no_plan );
use Dyn;

my @arr = Dyn::get_list();
if (@arr) {
	foreach my $elem (@arr) {
		like($elem, qr/^\d+$/, q{Expect an integer});
	}
}

__END__ 

##</code><code>##

Dyn....ok
All tests successful.
Files=1, Tests=5,  0 wallclock secs ( .. )
$ prove Dyn.t
Dyn....ok
All tests successful.
Files=1, Tests=10,  0 wallclock secs ( .. )
$ prove Dyn.t
Dyn....ok
All tests successful.
Files=1, Tests=7,  0 wallclock secs ( .. )