File Coverage

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