File Coverage

blib/lib/Acme/BABYMETAL.pm
Criterion Covered Total %
statement 35 39 89.7
branch 7 8 87.5
condition n/a
subroutine 10 11 90.9
pod 0 8 0.0
total 52 66 78.7


line stmt bran cond sub pod time code
1             package Acme::BABYMETAL;
2 5     5   84239 use 5.008001;
  5         17  
3 5     5   24 use strict;
  5         9  
  5         104  
4 5     5   28 use warnings;
  5         11  
  5         2481  
5              
6             our $VERSION = "0.02";
7              
8             my @members = qw(SU-METAL YUIMETAL MOAMETAL);
9              
10             sub new {
11 4     4 0 38 my $class = shift;
12 4         15 my $self = bless {members => []}, $class;
13 4         14 for my $member (@members) {
14 12         36 $member =~ s|-|_|;
15 12         28 my $module_name = 'Acme::BABYMETAL::' . $member;
16 12         764 eval qq|require $module_name;|;
17 12         42 push @{$self->{members}}, $module_name->new;
  12         114  
18             }
19 4         17 return $self;
20             }
21              
22             sub homepage {
23 1     1 0 3 my ($self) = @_;
24 1         4 return 'http://www.babymetal.jp/';
25             }
26              
27             sub youtube {
28 1     1 0 2 my ($self) = @_;
29 1         5 return 'https://www.youtube.com/BABYMETAL';
30             }
31              
32             sub facebook {
33 1     1 0 3 my ($self) = @_;
34 1         4 return 'https://www.facebook.com/BABYMETAL.jp/';
35             }
36              
37             sub instagram {
38 1     1 0 3 my ($self) = @_;
39 1         5 return 'https://www.instagram.com/babymetal_jpn/';
40             }
41              
42             sub twitter {
43 1     1 0 3 my ($self) = @_;
44 1         5 return 'https://twitter.com/BABYMETAL_JAPAN';
45             }
46              
47             sub members {
48 14     14 0 44 my ($self, $member) = @_;
49 14 100       43 return @{$self->{members}} unless $member;
  1         8  
50              
51 13 100       64 if ( $member =~ /^S/i ) {
    100          
    50          
52 4         12 @members = $self->{members}[0];
53             } elsif ( $member =~ /^Y/i ) {
54 5         15 @members = $self->{members}[1];
55             } elsif ( $member =~ /^M/i ) {
56 4         10 @members = $self->{members}[2];
57             } else {
58 0         0 @members = @{$self->{members}};
  0         0  
59             }
60 13         53 return @members;
61             }
62              
63             sub shout {
64 0     0 0   my ($self) = @_;
65 0           print "We are BABYMETAL DEATH!!\n";
66             }
67              
68              
69             1;
70             __END__