File Coverage

blib/lib/Net/Tomcat/JVM.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch			n/a
condition			n/a
subroutine	3	7	42.8
pod	0	1	0.0
total	12	25	48.0

package Net::Tomcat::JVM;

use strict;
use warnings;

our @ATTR       = qw(free_memory total_memory max_memory);

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;
        $self->{__timestamp} = time;

        return $self;
}

sub __timestamp { return $_[0]->{__timestamp} }

1;

__END__