Acme-Nogizaka46

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/Acme/Nogizaka46/YadaRisako.pm
lib/Acme/Nogizaka46/YamamotoHonoka.pm
lib/Acme/Nogizaka46/YamatoRina.pm
lib/Acme/Nogizaka46/YamazakiRena.pm
lib/Acme/Nogizaka46/YonetokuKyoka.pm
lib/Acme/Nogizaka46/YoshimotoAyaka.pm
minil.toml
t/00_compile.t
t/01_members.t
t/02_nogizaka.t
t/03_select.t
META.yml
MANIFEST

README.md  view on Meta::CPAN

    # retrieve the members on their activities
    my @members              = $nogizaka->members;             # retrieve all
    my @active_members       = $nogizaka->members('active');
    my @graduate_members     = $nogizaka->members('graduate');
    my @at_some_time_members = $nogizaka->members(DateTime->now->subtract(years => 5));

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

# DESCRIPTION

"Nogizaka46" is a Japanese female idol group.

This module, Acme::Nogizaka46, provides an easy method to catch up
with Nogizaka46.

# METHODS

README.md  view on Meta::CPAN

>     #  + 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 = $nogizaka->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 = $nogizaka->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

- Nogizaka46

lib/Acme/Nogizaka46.pm  view on Meta::CPAN

    # order by desc if $order is true
    if ($order) {
        return sort {$b->$type <=> $a->$type} @members;
    }
    else {
        return sort {$a->$type <=> $b->$type} @members;
    }
}

sub select {
    my ($self, $type, $num_or_str, $operator, @members) = @_;

    $self->_die('invalid operator was passed in')
        unless grep {$operator eq $_} qw(== >= <= > < eq ne);

    @members = $self->members unless @members;
    if ($type eq 'center') {
    } else {
        my $compare = eval "(sub { \$num_or_str $operator \$_[0] })";

lib/Acme/Nogizaka46.pm  view on Meta::CPAN

  # retrieve the members on their activities
  my @members              = $nogizaka->members;             # retrieve all
  my @active_members       = $nogizaka->members('active');
  my @graduate_members     = $nogizaka->members('graduate');
  my @at_some_time_members = $nogizaka->members(DateTime->now->subtract(years => 5));

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

=head1 DESCRIPTION

"Nogizaka46" is a Japanese female idol group.

This module, Acme::Nogizaka46, provides an easy method to catch up
with Nogizaka46.

=head1 METHODS

lib/Acme/Nogizaka46.pm  view on Meta::CPAN

  # $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 = $nogizaka->sort('age', 1); # sort by age in descending order

Returns the members sorted by the I<$type> field.

=back

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

=over 4

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

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

  $number $operator $member_value

=back

=head1 SEE ALSO

t/03_select.t  view on Meta::CPAN

use strict;
use DateTime;
use Acme::Nogizaka46;
use Test::More tests => 1;

my $nogizaka  = Acme::Nogizaka46->new;

my @maimai = $nogizaka->select('family_name_en', 'Fukagawa', 'eq');
is @maimai[0]->name_en, 'Mai Fukagawa', "select('first_name_en')";

diag( $nogizaka->select('center', undef, 'ne'));