File Coverage

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