Select Code to Download

use Carp qw(croak);

...

    return @{ $this->{colour}||[] };
}

sub colour {
    my $this = shift;
...

    return @{ $this->{colour}||[] };
}