File Coverage

blib/lib/Cisco/Accounting/Interface.pm

Criterion	Covered	Total	%
statement	9	40	22.5
branch			n/a
condition	0	3	0.0
subroutine	3	13	23.0
pod	3	9	33.3
total	15	65	23.0

package Cisco::Accounting::Interface;

## ----------------------------------------------------------------------------------------------
## Cisco::Accounting::Interface
##
## Cisco::Accounting::Interface object to store information for one interface
##
## $Id: Interface.pm 101 2007-08-03 23:10:17Z mwallraf $
## $Author: mwallraf $
## $Date: 2007-08-04 01:10:17 +0200 (Sat, 04 Aug 2007) $
##
## This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself.
## ----------------------------------------------------------------------------------------------


our $VERSION = '1.00';

use strict;
use warnings;
use Carp;
#use Data::Dumper;

my $DEBUG = 0;


sub new {
	my ($this, $id, $interface, $accounting_status) = @_;
	my  $class = ref($this) || $this;
	my  $self = {};
	bless($self, $class);

	$self->{'interface'} = $interface;
	$self->{'accounting_status'} = $accounting_status;
	$self->{'id'} = $id;
	$self->{'description'} = "";

	&_init($class);

	return($self);
} # end sub new


# initialization : set up logging
sub _init  {
	my $class=shift;
}

##
## return the interface name
##
sub get_interface()  {
	my $self = shift;
	return $self->{'interface'};
}

##
## return the interface status : IP Accounting enabled or disabled ?
##
sub get_accounting_status()  {
	my $self = shift;
	return $self->{'accounting_status'};
}


##
## set the name of the interface
##
sub set_interface()  {
	my $self = shift;
	my $int = shift;

	$self->{'interface'} = $int;
}

##
## set the interface status : IP Accounting enabled or disabled
##
sub set_accounting_status()  {
	my $self = shift;
	my $status = shift;

	$self->{'set_accounting_status'} = $status;
}

##
## get the id of this interface
##
sub get_id()  {
	my $self = shift;

	return $self->{'id'};
}

##
## set the id of this interface
##
sub set_id()  {
	my $self = shift;
	my $id = shift;

	$self->{'id'} = $id;
}

##
## get the description if it exists
##
sub get_description()  {
	my $self = shift;

	return $self->{'description'};
}

##
## set the interface description if it exists
##
sub set_description()  {
	my $self = shift;
	my $descr = shift;

	$self->{'description'} = $descr;
}

1;


__END__