Acme-MomoiroClover

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.
	$VERSION = '1.00';

	# Storage for the pseudo-singleton
	$MAIN    = undef;

	*inc::Module::Install::VERSION = *VERSION;
	@inc::Module::Install::ISA     = __PACKAGE__;

}

sub import {
	my $class = shift;
	my $self  = $class->new(@_);
	my $who   = $self->_caller;

inc/Module/Install.pm  view on Meta::CPAN

}

# Cloned from Params::Util::_CLASS
sub _CLASS ($) {
	(
		defined $_[0]
		and
		! ref $_[0]
		and
		$_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
	) ? $_[0] : undef;
}

1;

# Copyright 2008 - 2010 Adam Kennedy.

inc/Module/Install/Makefile.pm  view on Meta::CPAN

		foreach my $bundle (@{ $self->bundles }) {
			my ($mod_name, $dist_dir) = @$bundle;
			delete $prereq->{$mod_name};
			$dist_dir = File::Basename::basename($dist_dir); # dir for building this module
			if (not exists $processed{$dist_dir}) {
				if (-d $dist_dir) {
					# List as sub-directory to be processed by make
					push @$subdirs, $dist_dir;
				}
				# Else do nothing: the module is already present on the system
				$processed{$dist_dir} = undef;
			}
		}
	}

	unless ( $self->makemaker('6.55_03') ) {
		%$prereq = (%$prereq,%$build_prereq);
		delete $args->{BUILD_REQUIRES};
	}

	if ( my $perl_version = $self->perl_version ) {

inc/Module/Install/Metadata.pm  view on Meta::CPAN

    artistic_2   => 'http://opensource.org/licenses/artistic-license-2.0.php',
    lgpl         => 'http://opensource.org/licenses/lgpl-license.php',
    lgpl2        => 'http://opensource.org/licenses/lgpl-2.1.php',
    lgpl3        => 'http://opensource.org/licenses/lgpl-3.0.html',
    bsd          => 'http://opensource.org/licenses/bsd-license.php',
    gpl          => 'http://opensource.org/licenses/gpl-license.php',
    gpl2         => 'http://opensource.org/licenses/gpl-2.0.php',
    gpl3         => 'http://opensource.org/licenses/gpl-3.0.html',
    mit          => 'http://opensource.org/licenses/mit-license.php',
    mozilla      => 'http://opensource.org/licenses/mozilla1.1.php',
    open_source  => undef,
    unrestricted => undef,
    restrictive  => undef,
    unknown      => undef,
);

sub license {
	my $self = shift;
	return $self->{values}->{license} unless @_;
	my $license = shift or die(
		'Did not provide a value to license()'
	);
	$license = __extract_license($license) || lc $license;
	$self->{values}->{license} = $license;

inc/Module/Install/Metadata.pm  view on Meta::CPAN

	Module::Install::_write(
		'MYMETA.json',
		JSON->new->pretty(1)->canonical->encode($meta),
	);
}

sub _write_mymeta_data {
	my $self = shift;

	# If there's no existing META.yml there is nothing we can do
	return undef unless -f 'META.yml';

	# We need Parse::CPAN::Meta to load the file
	unless ( eval { require Parse::CPAN::Meta; 1; } ) {
		return undef;
	}

	# Merge the perl version into the dependencies
	my $val  = $self->Meta->{values};
	my $perl = delete $val->{perl_version};
	if ( $perl ) {
		$val->{requires} ||= [];
		my $requires = $val->{requires};

		# Canonize to three-dot version after Perl 5.6

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

=back

=head2 members ( $type )

=over 4

  # $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 = $momoclo_chan->members('active');

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

=back

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

lib/Acme/MomoiroClover/Members/AriyasuMomoka.pm  view on Meta::CPAN

    return (
        family_name_ja => '有安',
        first_name_ja  => '杏果',
        family_name_en => 'Ariyasu',
        first_name_en  => 'Momoka',
        nick           => [qw(ももか)],
        birthday       => Date::Simple->new('1995-03-15'),
        blood_type     => 'A',
        hometown       => '埼玉県',
        emoticon       => [],
        graduate_date  => undef,
        join_date      => Date::Simple->new('2009-07-26'),
        color          => 'green',
    );
}

1;

lib/Acme/MomoiroClover/Members/FujishiroSumire.pm  view on Meta::CPAN

        first_name_ja  => 'すみれ',
        family_name_en => 'Fujishiro',
        first_name_en  => 'Sumire',
        nick           => [],
        birthday       => Date::Simple->new('1994-05-08'),
        blood_type     => 'O',
        hometown       => '千葉県',
        emoticon       => [],
        graduate_date  => Date::Simple->new('2008-12-29'),
        join_date      => Date::Simple->new('2008-08-09'),
        color          => undef,
    );
}

1

lib/Acme/MomoiroClover/Members/IkuraManami.pm  view on Meta::CPAN

        first_name_ja  => '愛美',
        family_name_en => 'Ikura',
        first_name_en  => 'Manami',
        nick           => [],
        birthday       => Date::Simple->new('1994-02-04'),
        blood_type     => 'AB',
        hometown       => '埼玉県',
        emoticon       => [],
        graduate_date  => Date::Simple->new('2008-12-29'),
        join_date      => Date::Simple->new('2008-05-17'),
        color          => undef,
    );
}

1;

lib/Acme/MomoiroClover/Members/KashiwaYukina.pm  view on Meta::CPAN

        first_name_ja  => '幸奈',
        family_name_en => 'Kashiwa',
        first_name_en  => 'Yukina',
        nick           => [],
        birthday       => Date::Simple->new('1994-08-12'),
        blood_type     => 'B',
        hometown       => '神奈川県',
        emoticon       => [],
        graduate_date  => Date::Simple->new('2008-11-23'),
        join_date      => Date::Simple->new('2009-03-09'),
        color          => undef,
    );
}

1;

lib/Acme/MomoiroClover/Members/MomotaKanako.pm  view on Meta::CPAN

    return (
        family_name_ja => '百田',
        first_name_ja  => '夏菜子',
        family_name_en => 'Momota',
        first_name_en  => 'Kanako',
        nick           => [qw(かなこ デコちゃん)],
        birthday       => Date::Simple->new('1994-07-12'),
        blood_type     => 'AB',
        hometown       => '静岡県',
        emoticon       => [],
        graduate_date  => undef,
        join_date      => Date::Simple->new('2008-05-17'),
        color          => 'red',
    );
}

1;

lib/Acme/MomoiroClover/Members/SasakiAyaka.pm  view on Meta::CPAN

    return (
        family_name_ja => '佐々木',
        first_name_ja  => '彩夏',
        family_name_en => 'Sasaki',
        first_name_en  => 'Ayaka',
        nick           => [qw(あーりん)],
        birthday       => Date::Simple->new('1996-06-11'),
        blood_type     => 'AB',
        hometown       => '東京都',
        emoticon       => [],
        graduate_date  => undef,
        join_date      => Date::Simple->new('2008-11-23'),
        color          => 'pink',
    );
}

1;

lib/Acme/MomoiroClover/Members/TakagiReni.pm  view on Meta::CPAN

    return (
        family_name_ja => '高城',
        first_name_ja  => 'れに',
        family_name_en => 'Takagi',
        first_name_en  => 'Reni',
        nick           => [qw(れにちゃん)],
        birthday       => Date::Simple->new('1993-06-21'),
        blood_type     => 'O',
        hometown       => '神奈川県',
        emoticon       => [],
        graduate_date  => undef,
        join_date      => Date::Simple->new('2008-05-17'),
        color          => 'purple',
    );
}

1;

lib/Acme/MomoiroClover/Members/TakaiTsukina.pm  view on Meta::CPAN

        first_name_ja  => 'つき奈',
        family_name_en => 'Takai',
        first_name_en  => 'Tsukina',
        nick           => [qw(つっきーな)],
        birthday       => Date::Simple->new('1995-07-06'),
        blood_type     => 'AB',
        hometown       => '愛知県',
        emoticon       => [],
        graduate_date  => Date::Simple->new('2008-08-09'),
        join_date      => Date::Simple->new('2008-05-17'),
        color          => undef,
    );
}

1;

lib/Acme/MomoiroClover/Members/TamaiShiori.pm  view on Meta::CPAN

    return (
        family_name_ja => '玉井',
        first_name_ja  => 'è©©ç¹”',
        family_name_en => 'Tamai',
        first_name_en  => 'Shiori',
        nick           => [qw(しおりん)],
        birthday       => Date::Simple->new('1995-06-04'),
        blood_type     => 'A',
        hometown       => '神奈川県',
        emoticon       => ['coﾘ・ー・ﾝ'],
        graduate_date  => undef,
        join_date      => Date::Simple->new('2008-05-17'),
        color          => 'yellow',
    );
}

1;

lib/Acme/MomoiroClover/Members/WagawaMiyuu.pm  view on Meta::CPAN

        first_name_ja  => '未優',
        family_name_en => 'Wagawa',
        first_name_en  => 'Miyuu',
        nick           => [],
        birthday       => Date::Simple->new('1993-12-19'),
        blood_type     => 'O',
        hometown       => '東京都',
        emoticon       => [],
        graduate_date  => Date::Simple->new('2008-12-29'),
        join_date      => Date::Simple->new('2008-05-17'),
        color          => undef,
    );
}

1;

t/01_members.t  view on Meta::CPAN

use Acme::MomoiroClover::Z;
use Test::More tests => 7;
use Test::Exception;

my $momoclo_chan = Acme::MomoiroClover::Z->new;

throws_ok {
    Acme::MomoiroClover->new;
} qr/obsolete/, 'not found yet';

is scalar($momoclo_chan->members),             11, " members(undef) retrieved all";
is scalar($momoclo_chan->members('active')),    5, " members('active')";
is scalar($momoclo_chan->members('graduate')),  6, " members('graduate')";
is scalar($momoclo_chan->members(Date::Simple->new('2011-04-09'))), 6, " members('date_simple_object')";

{
    no warnings 'redefine';
    *Date::Simple::today = sub {
        Date::Simple->new('2011-04-09');
    };
    ok (Acme::MomoiroClover->new), 'can create';