File Coverage

blib/lib/Faker/Plugin/JaJp/TelephoneNumber.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 2 50.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Faker::Plugin::JaJp::TelephoneNumber;
2              
3 1     1   20672 use 5.018;
  1         4  
4              
5 1     1   6 use strict;
  1         2  
  1         20  
6 1     1   5 use warnings;
  1         2  
  1         26  
7              
8 1     1   6 use Venus::Class 'base';
  1         1  
  1         6  
9              
10             base 'Faker::Plugin::JaJp';
11              
12             # VERSION
13              
14             our $VERSION = '1.18';
15              
16             # METHODS
17              
18             sub execute {
19 3     3 1 1112 my ($self, $data) = @_;
20              
21 3         11 return $self->process_markers(
22             $self->faker->random->select(data_for_telephone_number()),
23             'numbers',
24             );
25             }
26              
27             sub data_for_telephone_number {
28 3     3 0 26 state $telephone_number = [
29             '080-####-####',
30             '090-####-####',
31             '0#-####-####',
32             '0####-#-####',
33             '0###-##-####',
34             '0##-###-####',
35             '0##0-###-###',
36             ]
37             }
38              
39             1;
40              
41              
42              
43             =head1 NAME
44              
45             Faker::Plugin::JaJp::TelephoneNumber - Telephone Number
46              
47             =cut
48              
49             =head1 ABSTRACT
50              
51             Telephone Number for Faker
52              
53             =cut
54              
55             =head1 VERSION
56              
57             1.18
58              
59             =cut
60              
61             =head1 SYNOPSIS
62              
63             package main;
64              
65             use Faker::Plugin::JaJp::TelephoneNumber;
66              
67             my $plugin = Faker::Plugin::JaJp::TelephoneNumber->new;
68              
69             # bless(..., "Faker::Plugin::JaJp::TelephoneNumber")
70              
71             =cut
72              
73             =head1 DESCRIPTION
74              
75             This package provides methods for generating fake data for telephone number.
76              
77             =encoding utf8
78              
79             =cut
80              
81             =head1 INHERITS
82              
83             This package inherits behaviors from:
84              
85             L
86              
87             =cut
88              
89             =head1 METHODS
90              
91             This package provides the following methods:
92              
93             =cut
94              
95             =head2 execute
96              
97             execute(HashRef $data) (Str)
98              
99             The execute method returns a returns a random fake telephone number.
100              
101             I>
102              
103             =over 4
104              
105             =item execute example 1
106              
107             package main;
108              
109             use Faker::Plugin::JaJp::TelephoneNumber;
110              
111             my $plugin = Faker::Plugin::JaJp::TelephoneNumber->new;
112              
113             # bless(..., "Faker::Plugin::JaJp::TelephoneNumber")
114              
115             # my $result = $plugin->execute;
116              
117             # '01-4084-4684';
118              
119             # my $result = $plugin->execute;
120              
121             # '00769-4-5443';
122              
123             # my $result = $plugin->execute;
124              
125             # '080-8982-2037';
126              
127             =back
128              
129             =cut
130              
131             =head2 new
132              
133             new(HashRef $data) (Plugin)
134              
135             The new method returns a new instance of the class.
136              
137             I>
138              
139             =over 4
140              
141             =item new example 1
142              
143             package main;
144              
145             use Faker::Plugin::JaJp::TelephoneNumber;
146              
147             my $plugin = Faker::Plugin::JaJp::TelephoneNumber->new;
148              
149             # bless(..., "Faker::Plugin::JaJp::TelephoneNumber")
150              
151             =back
152              
153             =cut
154              
155             =head1 AUTHORS
156              
157             Awncorp, C
158              
159             =cut
160              
161             =head1 LICENSE
162              
163             Copyright (C) 2000, Al Newkirk.
164              
165             This program is free software, you can redistribute it and/or modify it under
166             the terms of the Apache license version 2.0.
167              
168             =cut