package svs;

use strict;
use warnings;
use utf8;

sub init {
   my ($self) = @_;

#--------------------------------------------------
#    my $server = new svs::server_t ("myservername", 3, "myuplink", "myid", "my description");
#    print $server->name . "\n";
#    my $foundserver = svs::server_t->find ("myservername");
#    print $foundserver->desc . "\n";
#-------------------------------------------------- 

   $self
}

1