File Coverage

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