package CountingMetaClass;
use Moose;

extends 'Moose::Meta::Class';

has 'count' => (
    is      => 'rw', 
    isa     => 'Int', 
    default => sub { 0 }
);

after 'construct_instance' => sub {
    my $class = shift;
    $class->count($class->count + 1);
};