File Coverage

blib/lib/Baseball/Sabermetrics/Team.pm

Criterion	Covered	Total	%
statement	17	36	47.2
branch	2	12	16.6
condition	0	6	0.0
subroutine	5	10	50.0
pod	0	8	0.0
total	24	72	33.3

package Baseball::Sabermetrics::Team;
use Baseball::Sabermetrics::abstract;
use strict;

our @ISA = qw/ Baseball::Sabermetrics::abstract /;

sub players
{
    my ($self, $name) = @_;
    if ($name) {
	die "Player not found: $name\n" unless exists $self->{players}->{$name};
	return $self->{players}->{$name};
    }
    return values %{$self->{players}};
}

sub pitchers
{
    my $self = shift;
    return grep { exists $_->{np} and $_->{np} > 0 } $self->players;
}

sub batters
{
    my $self = shift;
    return grep { exists $_->{pa} and $_->{pa} > 0 } $self->players;
}

sub left_handed_pitchers
{
    my $self = shift;
    return grep { exists $_->{np} and $_->{np} > 0 and $_->{bio}->{throws} eq 'left' } $self->players;
}

sub right_handed_pitchers
{
    my $self = shift;
    return grep { exists $_->{np} and $_->{np} > 0 and $_->{bio}->{throws} eq 'right' } $self->players;
}

sub report
{
    my ($self, @cols) = @_;
    print join("\t", @cols), "\n";
    for ($self->players) {
	$_->print(@cols);
    }
}

sub report_pitchers
{
    my ($self, @cols) = @_;
    print join("\t", @cols), "\n";
    for ($self->pitchers) {
	$_->print(@cols);
    }
}

sub report_batters
{
    my ($self, @cols) = @_;
    print join("\t", @cols), "\n";
    for ($self->batters) {
	$_->print(@cols);
    }
}

1;