File Coverage

blib/lib/Acme/MomoiroClover/Z.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 26 27 96.3


line stmt bran cond sub pod time code
1             package Acme::MomoiroClover::Z;
2              
3 3     3   11524 use strict;
  3         7  
  3         129  
4 3     3   17 use warnings;
  3         3058  
  3         163  
5              
6 3     3   22 use Carp qw(croak);
  3         7  
  3         242  
7 3     3   1149 use Date::Simple ();
  3         10361  
  3         133  
8              
9 3     3   21 use base qw(Acme::MomoiroClover);
  3         5  
  3         1520  
10              
11             our $change_date = Date::Simple->new('2011-04-10');
12              
13             sub _check {
14 3 100   3   18 Date::Simple::today() >= shift->change_date() or croak('MomoiroClover Z is not found yet.');
15             }
16              
17             sub change_date {
18 5     5 0 2915 $change_date;
19             }
20              
21             1;