NAME

Acme::MorningMusume - All about the 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');

  # 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 a one of the most famous Japanese pop star consisting of many pretty girls, and known as a group in which group member changes one after another so frequently that people cannot completely tell who is who in the group. 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 a one of the values below:
  #  + active   :  active members
  #  + graduate :  graduate members
  #  + 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 a 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 ascending order
  #  + something false value :  sort in descending order

  my @sorted_members = $musume->sort('age', 1); # sort by age in ascending order

Returns the members sorted by the $type field.

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

  # $type can be a 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:
  $type $operator $member_type

AUTHOR

Kentaro Kuribayashi, <kentarok@gmail.com>

COPYRIGHT AND LICENSE

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

CPAN RT