Permalink
Newer
Older
100644 14 lines (8 sloc) 273 Bytes
1
# Algorithm::Soundex - Soundex Algorithms in Perl 6
Jun 28, 2011
2
3
use v6;
4
use Algorithm::Soundex;
5
6
my Algorithm::Soundex $s .= new();
7
my $soundex = $s.soundex("Leto");
8
say "The soundex of Leto is $soundex";
9
10
## Running Tests
11
12
prove -e perl6 -r t/