Help for this page

Select Code to Download


  1. or download this
    # Adjusted.pm                                               18sep14waw
    
    ...
    
    
    1;  # end Adjusted.pm
    
  2. or download this
    # Adjusted.t                                                18sep14waw
    
    ...
        throws_ok { Adjusted::values_summed(@vals) } $rx, $msg;
    
        }  # end for EXCEPTION
    
  3. or download this
    c:\@Work\Perl\monks\perldiverx>perl Adjusted.t
    ok 1 - use Adjusted;
    ...
    ok 6 - empty values list
    ok 7 - no warnings
    1..7