The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestHelper::Plugin::AlwaysPhonetic;

use Moo;
extends 'Code::TidyAll::Plugin';

my %phonetic = (
    A => 'ALFA',
    B => 'BRAVO',
    C => 'CHARLIE',
    D => 'DELTA',
    E => 'ECHO',
    F => 'FOXTROT',
    G => 'GOLF',
    H => 'HOTEL',
    I => 'INDIA',
    J => 'JULIETT',
    K => 'KILO',
    L => 'LIMA',
    M => 'MIKE',
    N => 'NOVEMBER',
    O => 'OSCAR',
    P => 'PAPA',
    Q => 'QUEBEC',
    R => 'ROMEO',
    S => 'SIERRA',
    T => 'TANGO',
    U => 'UNIFORM',
    V => 'VICTOR',
    W => 'WHISKEY',
    X => 'X-RAY',
    Y => 'YANKEE',
    Z => 'ZULU',
);

sub transform_source {
    my ( $self, $source ) = @_;
    return join '-', map { $phonetic{$_} } split //, $source;
}