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

NAME

Acme::MorningMusume::Base - A baseclass of the class represents each member of Morning Musume

SYNOPSIS

  use Acme::MorningMusume;

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

  # retrieve the members as a list of
  # Acme::MorningMusume::Base based objects
  my @members = $musume->members;

  for my $member (@members) {
      my $name_ja        = $member->name_ja;
      my $first_name_ja  = $member->first_name_ja;
      my $family_name_ja = $member->family_name_ja;
      my $name_en        = $member->name_en;
      my $first_name_en  = $member->first_name_en;
      my $family_name_en = $member->family_name_en;
      my $nick           = $member->nick;           # arrayref
      my $birthday       = $member->birthday;       # Date::Simple object
      my $age            = $member->age;
      my $blood_type     = $member->blood_type;
      my $hometown       = $member->hometown;
      my $emoticon       = $member->emoticon;       # arrayref
      my $class          = $member->class;
      my $graduate_date  = $member->graduate_date;  # Date::Simple object

      my $count;
      my $images = $member->images(limit => 5);
      while (my $image = $images->next) {
          $count++;
          my $content_url = $image->content_url;
          my $context_url = $image->context_url;
          $image->save_content(base => 'image' . $count);
          $image->save_context(base => 'page'  . $count);
      }
  }

DESCRIPTION

Acme::MorningMusume::Base is a baseclass of the class represents each member of Morning Musume.

METHODS

images ( [ %arg ] )

      # %arg can be passed in the same as the WWW::Google::Image::search method
      my $images = $member->images(limit => 5);

    Performs a search for $member's name using Google, and returns a WWW::Google::Images::SearchResult object. See the documentation of WWW::Google::Images for details.

ACCESSORS

name_ja

first_name_ja

family_name_ja

name_en

first_name_en

family_name_en

nick

birthday

age

blood_type

hometown

emoticon

class

graduate_date

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.