File Coverage

blib/lib/Faker/Plugin/EsEs/CompanyNamePrefix.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::CompanyNamePrefix;
2              
3 3     3   41930 use 5.018;
  3         13  
4              
5 3     3   18 use strict;
  3         6  
  3         65  
6 3     3   17 use warnings;
  3         5  
  3         99  
7              
8 3     3   16 use Venus::Class 'base';
  3         7  
  3         19  
9              
10             base 'Faker::Plugin::EsEs';
11              
12             # VERSION
13              
14             our $VERSION = '1.19';
15              
16             # METHODS
17              
18             sub execute {
19 5     5 1 1408 my ($self, $data) = @_;
20              
21 5         21 return $self->faker->random->select(data_for_company_name_prefix());
22             }
23              
24             sub data_for_company_name_prefix {
25 5     5 0 32 state $name = [
26             'AsociaciĆ³n',
27             'Centro',
28             'CorporaciĆ³n',
29             'Empresa',
30             'Gestora',
31             'Global',
32             'Grupo',
33             'Viajes',
34             'Air',
35             ]
36             }
37              
38             1;
39              
40              
41              
42             =head1 NAME
43              
44             Faker::Plugin::EsEs::CompanyNamePrefix - Company Name Prefix
45              
46             =cut
47              
48             =head1 ABSTRACT
49              
50             Company Name Prefix for Faker
51              
52             =cut
53              
54             =head1 VERSION
55              
56             1.19
57              
58             =cut
59              
60             =head1 SYNOPSIS
61              
62             package main;
63              
64             use Faker::Plugin::EsEs::CompanyNamePrefix;
65              
66             my $plugin = Faker::Plugin::EsEs::CompanyNamePrefix->new;
67              
68             # bless(..., "Faker::Plugin::EsEs::CompanyNamePrefix")
69              
70             =cut
71              
72             =head1 DESCRIPTION
73              
74             This package provides methods for generating fake data for company name prefix.
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 company name prefix.
99              
100             I>
101              
102             =over 4
103              
104             =item execute example 1
105              
106             package main;
107              
108             use Faker::Plugin::EsEs::CompanyNamePrefix;
109              
110             my $plugin = Faker::Plugin::EsEs::CompanyNamePrefix->new;
111              
112             # bless(..., "Faker::Plugin::EsEs::CompanyNamePrefix")
113              
114             # my $result = $plugin->execute;
115              
116             # 'Empresa';
117              
118             # my $result = $plugin->execute;
119              
120             # 'Empresa';
121              
122             # my $result = $plugin->execute;
123              
124             # 'Viajes';
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::CompanyNamePrefix;
145              
146             my $plugin = Faker::Plugin::EsEs::CompanyNamePrefix->new;
147              
148             # bless(..., "Faker::Plugin::EsEs::CompanyNamePrefix")
149              
150             =back
151              
152             =cut
153              
154             =head1 AUTHORS
155              
156             Awncorp, C
157              
158             =cut
159              
160             =head1 LICENSE
161              
162             Copyright (C) 2000, Al Newkirk.
163              
164             This program is free software, you can redistribute it and/or modify it under
165             the terms of the Apache license version 2.0.
166              
167             =cut