# ============================================================================
package Text::SomePhoneticAlgorithm;
# ============================================================================
use strict;
use warnings;
sub phonetic {
return uc($_[0]);
}
1;