package TestApp::Backend::SomeClass;
use Moose;
my $id = 0;
sub BUILD { $id++; }
has _count => ( is => 'rw', isa => 'Int', default => 0 );
sub count {
my $self = shift;
return $self->_count($self->_count+1);
}
sub id {
return $id;
}
has foo => ( is => 'ro' );
1;