File Coverage

blib/lib/Data/Faker/JapaneseFemaleName.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Data::Faker::JapaneseFemaleName;
2              
3 3     3   33942 use strict;
  3         11  
  3         292  
4 3     3   20 use warnings;
  3         7  
  3         141  
5              
6 3     3   23 use vars qw($VERSION);
  3         7  
  3         258  
7             $VERSION = '0.04';
8              
9 3     3   53 use base 'Data::Faker';
  3         7  
  3         1220  
10              
11             =head1 NAME
12              
13             Data::Faker::JapaneseFemaleName - Data::Faker plugin
14              
15             =head1 SYNOPSIS AND USAGE
16              
17             See L
18              
19             =head1 DATA PROVIDERS
20              
21             =over 4
22              
23             =item japanese_female_name
24              
25             Return a fake japanese female persons name (utf8 on).
26              
27             =back
28              
29             =cut
30              
31             binmode DATA, ':utf8';
32             my @names = map { chomp; split(/\t/) } ;
33              
34             __PACKAGE__->register_plugin(
35             japanese_female_name => \@names,
36             );
37              
38             =head1 ACKNOWLEDGEMENTS
39              
40             Thanks only to ume20 san.
41              
42             =over 4
43              
44             =item * Girl's Name Database Project
45              
46             L
47              
48             =back
49              
50             =head1 AUTHOR
51              
52             bokutin, C<< >>
53              
54             =head1 COPYRIGHT & LICENSE
55              
56             Copyright 2007 bokutin, all rights reserved.
57              
58             This program is free software; you can redistribute it and/or modify it
59             under the same terms as Perl itself.
60              
61             =cut
62              
63             1;
64             # End of Data::Faker::JapaneseFemaleName
65             # START of f_name20070311/f_name.txt
66             __DATA__