NAME

Acme::MorningMusume - All about Japanese pop star "Morning Musume"

SYNOPSIS

use Acme::MorningMusume;

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

# retrieve the members on their activities
my @members              = $musume->members;             # retrieve all
my @active_members       = $musume->members('active');
my @graduate_members     = $musume->members('graduate');
my @at_some_time_members = $musume->members(Date::Simple->new('2001-01-01'));

# retrieve the members under some conditions
my @sorted_by_age        = $musume->sort('age', 1);
my @sorted_by_class      = $musume->sort('class', 1);
my @selected_by_age      = $musume->select('age', 18, '>=');
my @selected_by_class    = $musume->select('class', 5, '==');

DESCRIPTION

"Morning Musume" is one of highly famous Japanese pop stars.

It consists of many pretty girls and has been known as a group which members change one after another so frequently that people can't completely tell who is who in the group.

This module, Acme::MorningMusume, provides an easy method to catch up with Morning Musume.

METHODS

new

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

    Creates and returns a new Acme::MorningMusume object.

members ( $type )

    # $type can be one of the values below:
    #  + active              : active members
    #  + graduate            : graduate members
    #  + Date::Simple object : members at the time passed in
    #  + undef               : all members
    
    my @members = $musume->members('active');

    Returns the members as a list of the Acme::MorningMusume::Base based object represents each member. See also the documentation of Acme::MorningMusume::Base for more details.

sort ( $type, $order [ , @members ] )

    # $type can be one of the values below:
    #  + age   :  sort by age
    #  + class :  sort by class
    #
    # $order can be a one of the values below:
    #  + something true value  :  sort in descending order
    #  + something false value :  sort in ascending order
    
    my @sorted_members = $musume->sort('age', 1); # sort by age in descending order

    Returns the members sorted by the $type field.

select ( $type, $number, $operator [, @members] )

    # $type can be one of the same values above:
    my @selected_members = $musume->select('age', 18, '>=');

    Returns the members satisfy the given $type condition. $operator must be a one of '==', '>=', '<=', '>', and '<'. This method compares the given $type to the member's one in the order below:

    $number $operator $member_value

SEE ALSO

AUTHOR

Kentaro Kuribayashi, <kentaro@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2005, 2006 by Kentaro Kuribayashi

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.