File Coverage

blib/lib/Symbol/Approx/Sub/Text/Soundex.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             #
2             # Symbol::Approx::Sub::Text::Soundex
3             #
4             # $Id$
5             #
6             # Transformer plugin for Symbol::Approx::Sub;
7             #
8             # Copyright (c) 2001, Magnum Solutions Ltd. All rights reserved.
9             #
10             # This module is free software; you can redistribute it and/or
11             # modify it under the same terms as Perl itself.
12             #
13             # $Log$
14             # Revision 1.2 2005/10/22 17:56:22 dave
15             # Added docs.
16             #
17             # Revision 1.1 2002/03/29 17:55:40 dave
18             # Support modules
19             #
20             # Revision 1.1 2001/07/15 20:44:24 dave
21             # Initial revision
22             #
23             #
24             package Symbol::Approx::Sub::Text::Soundex;
25              
26             require 5.006_000;
27 7     7   974 use strict;
  7         6  
  7         133  
28 7     7   21 use warnings;
  7         7  
  7         398  
29              
30             our ($VERSION, @ISA, $AUTOLOAD);
31              
32             $VERSION = sprintf "%2d", '$Revision$ ' =~ /(\d+)/;
33              
34 7     7   26 use Carp;
  7         8  
  7         261  
35 7     7   1185 use Text::Soundex;
  7         3912  
  7         664  
36              
37             =head1 NAME
38            
39             Symbol::Approx::Sub::Text::Soundex
40            
41             =head1 SYNOPSIS
42            
43             See L<Symbol::Approx::Sub>
44            
45             =head1 METHODS
46            
47             =head2 transform
48            
49             Returns the array it is passed with all values converted to their soundex
50             equivalent.
51            
52             =cut
53              
54             sub transform {
55 9     9 1 15   map { soundex($_) } @_;
  188         359  
56             }
57              
58             1;
59