use Test::More tests => 1; use base qw( ArrayBox ); use strict; use warnings; my $ab = __PACKAGE__->new( 'A' .. 'Z' ); is_deeply( [ $ab->even->all ], [ qw( A C E G I K M O Q S U W Y ) ] );