File Coverage

blib/lib/Data/Faker/PhoneNumber.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 32 32 100.0


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