File Coverage

blib/lib/Net/Tomcat/Connector.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	1	1	100.0
total	17	27	62.9

package Net::Tomcat::Connector;

use strict;
use warnings;

use overload
        ( '""' => \&name );

our @ATTR       = qw(name stats scoreboard);

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->{name}         = $args{name};
        $self->{stats}        = $args{stats};
        $self->{scoreboard}   = $args{scoreboard};

        return $self;
}

1;

__END__