File Coverage

blib/lib/Symbol/Approx/Sub/Text/Metaphone.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::Metaphone
3             #
4             # Transformer plugin for Symbol::Approx::Sub;
5             #
6             # Copyright (c) 2001, Magnum Solutions Ltd. All rights reserved.
7             #
8             # This module is free software; you can redistribute it and/or
9             # modify it under the same terms as Perl itself.
10             #
11             #
12             package Symbol::Approx::Sub::Text::Metaphone;
13              
14             require 5.006_000;
15 1     1   575 use warnings;
  1         2  
  1         38  
16 1     1   6 use strict;
  1         2  
  1         50  
17              
18             our ($VERSION, @ISA, $AUTOLOAD);
19              
20             $VERSION = '3.1.3';
21              
22 1     1   8 use Carp;
  1         2  
  1         77  
23 1     1   508 use Text::Metaphone;
  1         1239  
  1         101  
24              
25             =head1 NAME
26              
27             Symbol::Approx::Sub::Text::Metaphone
28              
29             =head1 SYNOPSIS
30              
31             See L
32              
33             =head1 METHODS
34              
35             =head2 transform
36              
37             Returns the array that it is passed with each element converted to its
38             metaphone equivalent.
39              
40             =cut
41              
42             sub transform {
43 1     1 1 3 map { Metaphone($_) } @_;
  28         82  
44             }
45              
46             1;