File Coverage

blib/lib/SyslogScan/Usage.pm

Criterion	Covered	Total	%
statement	6	64	9.3
branch	0	2	0.0
condition			n/a
subroutine	2	16	12.5
pod	10	14	71.4
total	18	96	18.7

package SyslogScan::Usage;

$VERSION = 0.20;
sub Version { $VERSION };

use SyslogScan::Volume;

my $SEND = 0;
my $RECEIVE = 1;
my $BROADCAST = 2;

my @ROLE_LIST = ($BROADCAST,$SEND,$RECEIVE);

use strict;

sub new
{
    my $type = shift;

    my $self = ();

    my $role;
    foreach $role (@ROLE_LIST)
    {
	$$self[$role] = new SyslogScan::Volume;
    }
    bless($self,$type);
    return $self;
}

sub addUsage
{
    my $self = shift;
    my $other = shift;
    my $role;
    foreach $role (@ROLE_LIST)
    {
	$$self[$role] -> addVolume($$other[$role]);
    }
}

sub registerSend
{
    my $self = shift;
    my $size = shift;

    $self -> register($size,$SEND);
}

sub registerReceive
{
    my $self = shift;
    my $size = shift;

    $self -> register($size,$RECEIVE);
}

sub registerBroadcast
{
    my $self = shift;
    my $size = shift;

    $self -> register($size,$BROADCAST);
}

sub getBroadcastVolume
{
    my $self = shift;
    return $$self[$BROADCAST] -> deepCopy();
}

sub getSendVolume
{
    my $self = shift;
    return $$self[$SEND] -> deepCopy();
}

sub getReceiveVolume
{
    my $self = shift;
    return $$self[$RECEIVE] -> deepCopy();
}

sub register
{
    my $self = shift;
    my $size = shift;
    my $role = shift;

    defined($$self[$role]) or
	die "illegal Role: $role";

    $$self[$role] -> addSize($size);
}

sub persist
{
    my $self = shift;
    my $outFH = shift;

    my $role;
    foreach $role (@ROLE_LIST)
    {
	$$self[$role] -> persist($outFH);
    }
}

sub restore
{
    my $type = shift;
    my $inFH = shift;

    my $self = ();

    my $role;
    foreach $role (@ROLE_LIST)
    {
	$$self[$role] =
	  SyslogScan::Volume -> restore($inFH);
    }

    bless($self,$type);

    return $self;
}

sub dump
{
    my $self = shift;
    my $retString;

    my $role;
    foreach $role (@ROLE_LIST)
    {
	$retString .= "\t\t". $$self[$role] -> dump();
    }
    return $retString."\n";
}

sub deepCopy
{
    my $self = shift;
    my $copy = ();

    my $role;
    foreach $role (@ROLE_LIST)
    {
	$$copy[$role] = $$self[$role] -> deepCopy();
    }

    bless($copy,ref($self));
    return $copy;
}

1;

__END__