File Coverage

blib/lib/Symbol/Approx/Sub/Text/Metaphone.pm
Criterion Covered Total %
statement 12 14 85.7
branch n/a
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             #
2             # Symbol::Approx::Sub::Text::Metaphone
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:45:25 dave
21             # Initial revision
22             #
23             #
24             package Symbol::Approx::Sub::Text::Metaphone;
25              
26             require 5.006_000;
27 1     1   1022 use warnings;
  1         1  
  1         26  
28 1     1   3 use strict;
  1         1  
  1         52  
29              
30             our ($VERSION, @ISA, $AUTOLOAD);
31              
32             $VERSION = sprintf "%d", '$Revision$ ' =~ /(\d+)/;
33              
34 1     1   3 use Carp;
  1         1  
  1         43  
35 1     1   150 use Text::Metaphone;
  1         485  
  1         61  
36              
37             =head1 NAME
38            
39             Symbol::Approx::Sub::Text::Metaphone
40            
41             =head1 SYNOPSIS
42            
43             See L<Symbol::Approx::Sub>
44            
45             =head1 METHODS
46            
47             =head2 transform
48            
49             Returns the array that it is passed with each element converted to its
50             metaphone equivalent.
51            
52             =cut
53              
54             sub transform {
55 0     0 1     map { Metaphone($_) } @_;
  0            
56             }
57              
58             1;
59