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