package FloorWax;

use strict;
use warnings;
use Lexical::Attributes;

has $.colour is ro;
my @dead_colours;

sub new {
    bless \do {my $v} => shift;
}

method init {
    $.colour = shift;
    $self;
}

sub count_floor_wax_keys {
    scalar keys %colour;
}

method DESTRUCT {
    push @dead_colours => $.colour;
}

sub dead_colours {
    @dead_colours;
}

1;

__END__

=head1 HISTORY
