sub colour {
    my $self = shift;
    my $colour = shift if @_;

    $self->{colour} = $colour if defined $colour;

    return $self->{colour};
}