overload example (cont)

use Test::More (no_plan);

my $num  = Number->new(5);
my $num2 = Number->new(15);
my $num3 = 20;

is $num + $num2, 20, 'Twenty';
is $num + $num3, 25, 'Twenty five';
is $num += 5, 10, 'Ten';
is $num, '5', 'Five';