The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#
# This file is part of Games-Pandemic
#
# This software is Copyright (c) 2009 by Jerome Quelin.
#
# This is free software, licensed under:
#
#   The GNU General Public License, Version 2, June 1991
#
use 5.010;
use strict;
use warnings;

package Games::Pandemic::Card::City;
{
  $Games::Pandemic::Card::City::VERSION = '1.120510';
}
# ABSTRACT: pandemic city card

use Moose;
use MooseX::SemiAffordanceAccessor;

extends 'Games::Pandemic::Card';

# -- accessors

has city => (
    is => 'ro',
    isa => 'Games::Pandemic::City',
    weak_ref => 1,
);


# -- default builders

sub _build_icon {
    my $self = shift;
    return $self->city->disease->image('cube',16);
}

sub _build_label {
    my $self = shift;
    return $self->city->name;
}


no Moose;
__PACKAGE__->meta->make_immutable;

1;


=pod

=head1 NAME

Games::Pandemic::Card::City - pandemic city card

=head1 VERSION

version 1.120510

=head1 AUTHOR

Jerome Quelin

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2009 by Jerome Quelin.

This is free software, licensed under:

  The GNU General Public License, Version 2, June 1991

=cut


__END__