Help for this page

Select Code to Download


  1. 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;
    
  2. or download this
    my $c3 = ( $x1 + $x2 ) * $v1;
    
  3. or download this
    use overload 
      '(' => \&left_parenthesis,    
      ')' => \&right_parenthesis,