File Coverage

blib/lib/Lingua/Alphabet/Phonetic/LAPD.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	21	21	100.0

package Lingua::Alphabet::Phonetic::LAPD;

use strict;
use warnings;
use base 'Lingua::Alphabet::Phonetic';

# ABSTRACT: map ABC's to the LAPD phonetic letter names
our $VERSION = '0.02'; # VERSION

my @asAlphabet = qw(
Adam Boy Charles David Edward Frank George
Henry Ida John King Lincoln Mary Nora Ocean
Paul Queen Robert Sam Tom Union Victor William
X-ray Young Zebra Zero One Two Three Four Five
Six Seven Eight Nine
);
my %hash = map { $_ => shift @asAlphabet } ('a'..'z', 0..9);

sub _name_of_letter
  {
  my $self = shift;
  my $s = shift;
  # 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;



=pod

=head1 NAME

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

=head1 VERSION

version 0.02

=head1 SYNOPSIS

 use Lingua::Alphabet::Phonetic;
 my $phonetic = Lingua::Alphabet::Phonetic('LAPD');
 # prints One-Adam-OneTwo
 print $phonetic->enunciate("1-A-12");

=head1 DESCRIPTION

This module provides for L
the LAPD phonetic alphabet used by the Los Angeles Police
Department (LAPD) and other local state law enforcement
agencies across the state of California.

This is a specialization of L.
You do not use this module directly.  All interaction
should be through an L.

=head1 INSPIRATION

I wrote this module along with a number of other back ends
for L::A::P years ago for a gimmick on my website.  Recently
I was watching Adam-12 on Netflix and decided this was a sign
that this module should be shared.

Unfortunately 1-A-12 comes back as 1-Adam-OneTwo instead of
1-Adam-Twelve.

=head1 AUTHOR

Graham Ollis

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Graham Ollis.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut


__END__