File Coverage

blib/lib/LCC/UNS.pm

Criterion	Covered	Total	%
statement	3	11	27.2
branch	0	6	0.0
condition	0	3	0.0
subroutine	1	4	25.0
pod	0	1	0.0
total	4	25	16.0

package LCC::UNS;

# Make sure we do everything by the book
# Set modules to inherit from
# Set version information

use strict;
@LCC::UNS::ISA = qw(LCC);
$LCC::UNS::VERSION = '0.02';

# Return true value for use

1;

#------------------------------------------------------------------------

# The following methods are class methods

#------------------------------------------------------------------------

#  IN: 1 LCC object
#      2 server:port specification
#      3 ref to hash with method/value pairs

sub _new {

# Obtain the class of the object
# Attempt to create the base object
# Handle the serverport specification if there is any
# Handle any method calls

  my $class = shift;
  my $self = $class->SUPER::_new( shift );
  $self->serverport( shift ) if @_ and !ref($_[0]);
  $self->Set( shift ) if ref($_[0]);

# Return the object

  return $self;
} #_new

#------------------------------------------------------------------------

# The following methods change the object

#------------------------------------------------------------------------

#  IN: new server:port specification
# OUT: current/old server:port specification

sub serverport { shift->_class_variable( 'serverport',@_ ) } #serverport

#------------------------------------------------------------------------

# The following subroutines deal with standard Perl features

#------------------------------------------------------------------------

sub DESTROY {

# Obtain the object
# Stop the daemon if so specified

  my $self = shift;
  $self->stop if $self->auto_shutdown;
} #DESTROY

#------------------------------------------------------------------------

__END__