package Code::TidyAll::Test::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;
}