Select Code to Download

#! perl -slw
use strict;
...
);

cmpthese( -3, \%tests );

P:\test>300051 2>nul
          Rate    Cish Perlish
Cish     441/s      --    -63%
Perlish 1206/s    174%      --

use strict;
package Class::InstanceVariables;
...
    }
}
1;