package MyApp::ClassTableInheritance::Schema::Base::Result::Footballer;

use namespace::autoclean;

use Moose;

extends qw(
    MyApp::ClassTableInheritance::Schema::Base::Result::Player
);


# ****************************************************************
# painful accessor(s)
# ****************************************************************

sub name { # It is less than smart...
    my $self = shift;

    return $self->player->name(@_);
}


# ****************************************************************
# business logic(s)
# ****************************************************************

sub kick {
    my $self = shift;

    printf(
        "%s (%s) kicks a ball!\n",
        $self->name,
        $self->club,
    );

    return;
}


# ****************************************************************
# business logic(s)
# ****************************************************************

__PACKAGE__->_prepare_table;
__PACKAGE__->meta->make_immutable;

1;
__END__

=pod

=encoding utf-8

=head1 NAME

MyApp::ClassTableInheritance::Schema::Base::Result::Footballer - blah blah blah

=head1 SYNOPSIS

    # yada yada yada

=head1 DESCRIPTION

blah blah blah

=head1 AUTHOR

=over 4

=item MORIYA Masaki, alias Gardejo

C<< <moriya at cpan dot org> >>,
L<http://gardejo.org/>

=back

=head1 COPYRIGHT AND LICENSE

Copyright (c) 2010 MORIYA Masaki, alias Gardejo.

This library is free software;
you can redistribute it and/or modify it under the same terms as Perl itself.
See L<perlgpl|perlgpl> and L<perlartistic|perlartistic>.

The full text of the license can be found in the F<LICENSE> file included with
this distribution.

=cut