view release on metacpan or  search on metacpan

lib/Acme/MomoiroClover.pm  view on Meta::CPAN

    my $self  = bless {members => []}, $class;

    $self->_check();
    $self->_initialize;

    return $self;
}

sub _check {
    my $self = shift;
    Date::Simple::today() <= Acme::MomoiroClover::Z::change_date() or croak('MomoiroClover is obsolete. Please use Acme::MomoiroClover::Z ');
}

sub members {
    my ($self, $type, @members) = @_;
    @members = @{$self->{members}} unless @members;

    return @members unless $type;

    if ($type eq 'active') {
        return grep {!$_->graduate_date} @members;

lib/Acme/MomoiroClover/Z.pm  view on Meta::CPAN

package Acme::MomoiroClover::Z;

use strict;
use warnings;

use Carp  qw(croak);
use Date::Simple ();

use base qw(Acme::MomoiroClover);

our $change_date = Date::Simple->new('2011-04-10');

sub _check {
    Date::Simple::today() >= shift->change_date() or croak('MomoiroClover Z is not found yet.');
}

sub change_date {
    $change_date;
}

1;