File Coverage

blib/lib/Net/Tomcat/Connector/Statistics.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch			n/a
condition			n/a
subroutine	3	9	33.3
pod	1	1	100.0
total	13	25	52.0

package Net::Tomcat::Connector::Statistics;

use strict;
use warnings;

our $VERSION    = '0.01';
our @ATTR       = qw(max_threads current_thread_count current_thread_busy max_processing_time
                        processing_time request_count error_count bytes_received bytes_sent);

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

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

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

        return $self
}

1;
__END__