Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
   $got =~ s/\..*$//;
   is( $got, $exp, "'$e->[0]'" . ' -> ' . "'$got'" );
}

Select or download this

1..20
ok 1 - 'abc' -> 'abc'
...
ok 18 - 'f.1.2.3.4.5' -> 'f'
ok 19 - 'f.1.2.3.4.5.67' -> 'f'
ok 20 - 'ABC.123.456' -> 'ABC'