File Coverage

blib/lib/Data/Faker/PhoneNumber.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Data::Faker::PhoneNumber;
2 2     2   7 use vars qw($VERSION); $VERSION = '0.10_04';
  2     2   2  
  2         86  
  2         6  
  2         1  
  2         83  
3 2     2   7 use base 'Data::Faker';
  2     2   1  
  2         176  
  2         6  
  2         3  
  2         114  
4              
5             =head1 NAME
6              
7             Data::Faker::PhoneNumber - Data::Faker plugin
8              
9             =head1 SYNOPSIS AND USAGE
10              
11             See L
12              
13             =head1 DATA PROVIDERS
14              
15             =over 4
16              
17             =item phone_number
18              
19             Return a fake phone number.
20              
21             =cut
22              
23             __PACKAGE__->register_plugin(
24             phone_number => [
25             '###-###-####',
26             '(###)###-####',
27             '1-###-###-####',
28             '###.###.####',
29             '###-###-####',
30             '(###)###-####',
31             '1-###-###-####',
32             '###.###.####',
33             '###-###-#### x###',
34             '(###)###-#### x###',
35             '1-###-###-#### x###',
36             '###.###.#### x###',
37             '###-###-#### x####',
38             '(###)###-#### x####',
39             '1-###-###-#### x####',
40             '###.###.#### x####',
41             '###-###-#### x#####',
42             '(###)###-#### x#####',
43             '1-###-###-#### x#####',
44             '###.###.#### x#####',
45             ],
46             );
47              
48             =back
49              
50             =head1 SEE ALSO
51              
52             L
53              
54             =head1 AUTHOR
55              
56             Jason Kohles, Eemail@jasonkohles.comE
57              
58             =head1 COPYRIGHT AND LICENSE
59              
60             Copyright 2004-2005 by Jason Kohles
61              
62             This library is free software; you can redistribute it and/or modify
63             it under the same terms as Perl itself.
64              
65             =cut
66              
67             1;