File Coverage

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