1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
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;
}
|
