The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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.