File Coverage

blib/lib/Net/Tomcat/Connector/Scoreboard/Entry.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	2	0.0
condition			n/a
subroutine	3	11	27.2
pod	3	3	100.0
total	15	34	44.1

package Net::Tomcat::Connector::Scoreboard::Entry;

use strict;
use warnings;

our $VERSION    = '0.01';
our @ATTR       = qw(stage time client vhost request b_sent b_recv);

foreach my $attr ( @ATTR ) {{
        no strict 'refs';
        *{ __PACKAGE__ . "::$attr" } = sub {
                my ( $self, $val ) = @_;
                $self->{$attr} = $val if $val;

                return $self->{$attr} }
}}

sub new {
        my ( $class, %args )    = @_;

        my $self                = bless {}, $class;
        $self->{$_}             = $args{$_} for @ATTR;

        return $self
}

sub bytes_sent          { return $_[0]->{b_sent}        }

sub bytes_received      { return $_[0]->{b_recv}        }

1;

__END__