# ============================================================================
package Text::SomePhoneticAlgorithm;
# ============================================================================

use strict;
use warnings;

sub phonetic {
    return uc($_[0]);
}

1;