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

use namespace::autoclean;

use Moose;

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


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

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

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

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

    return $self->cricketer->batting_average(@_);
}


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

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

    return $self->cricketer->bat(@_);
}

sub bowl {
    my $self = shift;

    printf(
        "%s (ave.: %0.3f) bowls a ball!\n",
        $self->name,
        $self->bowling_average,
    );

    return;
}


# ****************************************************************
# compile-time process(es)
# ****************************************************************

__PACKAGE__->meta->make_immutable;

1;
__END__

=pod

=encoding utf-8

=head1 NAME

MyApp::ClassTableInheritance::Schema::Base::Result::Bowler - 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