Select Code to Download

sub write_graffiti {
    my $self = shift;
...
    # spray paint wall with the colour,
    # whether new or existing
}

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

    return $self->{colour};
}