view release on metacpan or  search on metacpan

t/01_members.t  view on Meta::CPAN

use strict;
use DateTime;
use Acme::MorningMusume;
use Test::More tests => 4;

my $musume  = Acme::MorningMusume->new;

is scalar($musume->members),             38, " members(undef) retrieved all";
is scalar($musume->members('active')),   11, " members('active')";
is scalar($musume->members('graduate')), 27, " members('graduate')";
is scalar($musume->members(DateTime->new(year => 2001, month => 1, day => 1))), 10, " members('date_simple_object')";