The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Counter::Over::Engineered::Sugar::Model;
use Moose;

our $VERSION   = '0.01';
our $AUTHORITY = 'cpan:STEVAN';

has 'count' => (
    traits  => [ 'Counter' ],
    is      => 'ro',
    isa     => 'Int',
    default => 0,
    handles => {
        inc_counter   => 'inc',
        dec_counter   => 'dec',
        reset_counter => 'reset',
        set_counter   => 'set'
    }
);

no Moose; 1;

__END__