use Test::More tests => 1; use base qw( ArrayBox ); use strict; use warnings; my $ab = __PACKAGE__->new( 'A' .. 'Z' ); is_deeply( [ $ab->odd->all ], [ qw( B D F H J L N P R T V X Z ) ] );