diff --git a/examples/typebound_overloading.pl b/examples/typebound_overloading.pl index 6ca0363..755bc55 100755 --- a/examples/typebound_overloading.pl +++ b/examples/typebound_overloading.pl @@ -7,10 +7,20 @@ use Math::MatrixReal; my $matrix = Math::MatrixReal->new_from_rows([[3,6,9]]); my $a = (2/3) * $matrix; my $b = 2 * $matrix / 3; +my $c = 2 * (+$matrix) / 3; +my $d = (2/3) * (+$matrix); + print "\$a is a " . (ref $a) . "\n"; print "\$b is a " . (ref $b) . "\n"; +print "\$c is a " . (ref $c) . "\n"; +print "\$d is a " . (ref $d) . "\n"; print "\$a=\n"; print $a; print "\$b=\n"; print $b; +print "\$c=\n"; +print $c; +print "\$d=\n"; +print $d; +