Select Code to Download

{
  use strict;
...
  has 'things' => (is => 'rw', isa => 'ArrayRef');
}
1;

#!/usr/bin/perl

...
@temp = @{$cup_holder->things()};
is (scalar @temp, 4, "there should be four things in the cupboard");
is ($thing, "red", "the cup should be red");