Help for this page

Select Code to Download

Select or download this

use Test::More tests => 4;
BEGIN {use_ok('Mytest')}
...
is( Mytest::is_even(0), 1, 'is_even says 0 is even' );
is( Mytest::is_even(1), 0, 'is_even says 1 is not even' );
is( Mytest::is_even(2), 1, 'is_even says 2 is even' );

Select or download this

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)