- or download this
use strict;
package util;
...
return($tmp);
}
1;
- or download this
use utf8;
use util;
...
is( &util::beautify( "ÿisTheWord"), "Ÿistheword", "ÿisTheWord - specia
+l character changes case." );
print util::beautify( "ÿisTheWord") . "\n";
- or download this
1..4
ok 1 - ?isTheWord - special character changes case.
...
ok 3 - ?isTheWord - special character changes case.
ok 4 - ?isTheWord - special character changes case.
Ÿistheword