1use Test::More; 2use Data::Perl; 3use Scalar::Util qw/refaddr/; 4 5use strict; 6 7# constructor 8is ref(counter(1)), 'Data::Perl::Counter', 'constructor shortcut works'; 9 10my $c = counter(5); 11is $$c, 5, 'nondefault set works'; 12 13# inc 14$c->inc; 15is $$c, 6, 'inc 1 works'; 16 17$c->inc(3); 18is $$c, 9, 'inc n works'; 19 20# dec 21$c = counter(4); 22$c->dec; 23is $$c, 3, 'dec 1 works'; 24 25$c->dec(2); 26is $$c, 1, 'dec n works'; 27 28# reset 29$c->reset; 30is $$c, 0, 'reset works'; 31 32done_testing(); 33