File Coverage

blib/lib/Acme/MetaSyntactic/morning_musume.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Acme::MetaSyntactic::morning_musume;
2 1     1   8287 use strict;
  1         2  
  1         39  
3 1     1   993 use Acme::MetaSyntactic::MultiList;
  1         4401  
  1         27  
4 1     1   1054 use Acme::MorningMusume;
  1         957541  
  1         174  
5             our @ISA = qw( Acme::MetaSyntactic::MultiList );
6             our $VERSION = '1.002';
7              
8             my $musume = Acme::MorningMusume->new;
9             #my @all = map { $_->name_en } $musume->members;
10             my @active = map { $_->name_en } $musume->members('active');
11             my @graduate = map { $_->name_en } $musume->members('graduate');
12              
13             __PACKAGE__->init(
14             { default => 'active',
15             names => {
16             active => join (' ', @active),
17             graduate => join (' ', @graduate),
18             },
19             }
20             );
21              
22             1;
23              
24             =head1 NAME
25              
26             Acme::MetaSyntactic::morning_musume - The theme of Morning Musume
27              
28             =head1 DESCRIPTION
29              
30             The names (English transcription) of the Japanese Pop Idols Morning Musume
31              
32             The list is provided by the module L from KENTARO.
33              
34             Two themes are available: active (default), graduate
35              
36             =head1 INSTALL
37              
38             To install this module, run the following commands:
39              
40             perl Build.PL
41             ./Build
42             ./Build test
43             ./Build install
44              
45             Alternatively, to install with ExtUtils::MakeMaker, you can use the following commands:
46              
47             perl Makefile.PL
48             make
49             make test
50             make install
51              
52             =head1 CONTRIBUTOR
53              
54             Laurent Boivin (elbeho)
55              
56             =head1 CHANGES
57              
58             =over 4
59              
60             =item *
61              
62             2013-06-16 - v1.002
63              
64             Fix missing dependancies
65              
66             2012-10-17 - v1.001
67              
68             Fix documentation (pod and readme)
69              
70             =item *
71              
72             2012-10-13 - v1.000
73              
74             First version of my first module
75              
76             =back
77              
78             =head1 SEE ALSO
79              
80             L,
81             L, L.
82              
83             =head1 COPYRIGHT
84              
85             Copyright (C) 2012-2013 Laurent Boivin (elbeho)
86              
87             =head1 LICENSE
88              
89             This program is free software; you can redistribute it and/or modify it
90             under the same terms as Perl itself.
91              
92             =cut
93