- or download this
my $x1 = Foo::Number->new()->value( 10 );
my $x2 = Foo::Number->new()->value( 20 );
...
my $c1 = $v1 - $x1 + $x2 + $x3 - $x4;
my $c2 = $c1 * $v1;
- or download this
my $c3 = ( $x1 + $x2 ) * $v1;
- or download this
use overload
'(' => \&left_parenthesis,
')' => \&right_parenthesis,