1use Test::More; 2use Data::Perl; 3 4use strict; 5 6# constructor 7is ref(number(1)), 'Data::Perl::Number', 'constructor shortcut works'; 8 9my $c = number(5); 10is $$c, 5, 'nondefault set works'; 11 12# add 13$c->add(5); 14is $$c, 10, 'add works'; 15 16# sub 17$c->sub(5); 18is $$c, 5, 'sub works'; 19 20# mul 21$c->mul(6); 22is $$c, 30, 'mul works'; 23 24# div 25$c->div(7); 26is $$c, 30/7, 'div works'; 27 28# mod 29$$c = 12; 30$c->mod(5); 31is $$c, 2, 'mod works'; 32 33$$c = -5; 34# abs 35$c->abs; 36is $$c, 5, 'abs works'; 37 38done_testing(); 39