File Coverage

blib/lib/Xen/Domain.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	17	17	100.0

package Xen::Domain;

=head1 NAME

Xen::Domain - xen domain representing object

=head1 SYNOPSIS

    my $domain = Xen::Domain->new(
        'name'  => 'lenny',
        'id'    => 1,
        'mem'   => 256,
        'vcpus' => 2,
        'state' => '-b----',
        'times' => 11.5,
    );

    print $domain->name, ' uses ', $domain->mem, 'MB of memory.', "\n";

=head1 DESCRIPTION

Object module representing Xen domain.

=cut

use warnings;
use strict;

our $VERSION = '0.01';

use base 'Class::Accessor::Fast';

=head1 PROPERTIES

    name
    id
    mem
    vcpus
    state
    times

=cut

__PACKAGE__->mk_accessors(qw{
    name
    id
    mem
    vcpus
    state
    times
});

=head1 METHODS

=head2 new()

Object constructor.

=cut

sub new {
    my $class = shift;
    my $self  = $class->SUPER::new({ @_ });

    return $self;
}

1;


__END__