view release on metacpan or  search on metacpan

t/04_soulgem.t  view on Meta::CPAN

        is $mami->color,undef;

    };

    subtest 'members_of' => sub {
        my ($kyoko,) = Acme::MadokaMagica->members_of($Acme::MadokaMagica::KyoSaya);
        is ref $kyoko,'Acme::MadokaMagica::TvMembers::SakuraKyoko';
        is $kyoko->color,'Red';

































































































        is $kyoko->color,undef;
    };
};

done_testing;