Select Code to Download

 package main;
 use strict;
...
 my $doit = doit->new();
 my @data = 1..10;
 print $doit->enumerate( \@data );

package main; 
use strict; 
...
isa_ok my $doit = doit->new(), 'doit';
my @data = 1..10; 
is_deeply [$doit->enumerate( \@data )], [1..10], 'enumerate works';