File Coverage

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