Lingua::Alphabet::Phonetic::NATO - map ABC's to the NATO phonetic letter names

Lingua-Alphabet-Phonetic documentation Contained in the Lingua-Alphabet-Phonetic distribution.

Index

Code Index:

NAME

Top

Lingua::Alphabet::Phonetic::NATO - map ABC's to the NATO phonetic letter names

SYNOPSIS

Top

This is a specialization of Lingua::Alphabet::Phonetic. You should not use this module; all interaction should be done with an object of type Lingua::Alphabet::Phonetic.

NOTES

Top

SEE ALSO

Top

http://en.wikipedia.org/wiki/NATO_phonetic_alphabet

BUGS

Top

Please tell the author if you find any!

LICENSE

Top

This software is released under the same license as Perl itself.

AUTHOR

Top

Martin Thurn (mthurn@cpan.org).

Lingua-Alphabet-Phonetic documentation Contained in the Lingua-Alphabet-Phonetic distribution. 
# $Id: NATO.pm,v 1.7 2008/09/07 03:23:37 Martin Exp $


#####################################################################

package Lingua::Alphabet::Phonetic::NATO;

use strict;
use warnings;

use base 'Lingua::Alphabet::Phonetic';
our
$VERSION = sprintf("%d.%02d", q$Revision: 1.7 $ =~ /(\d+)\.(\d+)/o);

my @asAlphabet = qw(
Alpha Bravo Charlie Delta Echo Foxtrot Golf Hotel India Juliet Kilo Lima
Mike November Oscar Papa Quebec Romeo Sierra Tango Uniform Victor Whiskey
Xray Yankee Zulu
Zero One Two Three Four Five Six Seven Eight Niner
);
my %hash = map { $_ => shift @asAlphabet } ('a'..'z', 0..9);

sub _name_of_letter
  {
  my $self = shift;
  my $s = shift;
  # print STDERR " + L::A::P::NATO::_name_of_letter($s)\n";
  # If we get more than one character, ignore the rest:
  my $c = lc substr($s, 0, 1);
  if (exists($hash{$c}))
    {
    return $hash{$c};
    } # if
  return $self->SUPER::_name_of_letter($s);
  } # _name_of_letter

1;

__END__