BEGIN {
    package Catty;
    use Moo;
    use MooX::ClassAttribute;

    class_has "catcat" =>
        is => "lazy",
        clearer => 1; # Sometimes desirable, like cache clearing.

    sub _build_catcat {
        my @them = qw( Abyssinian Balinese Chartreux Korat Nebelung
                       Somali Tonkinese );
        $them[rand@them];
    }
    1;
}

use Catty;

my $catty = Catty->new;
print $catty->catcat, $/;

my $fat_catty = Catty->new;
print $fat_catty->catcat, $/;

Catty->clear_catcat;

print $catty->catcat, $/;
print $fat_catty->catcat, $/;