#!/usr/bin/perl -w

use strict;
use myObject;

my $T = myObject->new();

# We add a server by passing in the server name, and a hash ref of the
# credentials we want to add
$T->addServer('barrabas', { password=>"sa", hostname=>"devo.marcorp.org" });
$T->printMe;

$T->deleteServer('default');
$T->printMe;

$T->removeServerMap;
$T->printMe;

##</code><code>##

package myObject;

$VERSION = 1.00;
use strict;
use warnings;
use diagnostics;
use vars qw(@ISA);

use Carp ();
$Carp::Verbose =1;
{
        my %serverMap = (
                default => {
                        ipaddress       => "127.0.0.1",
                        dsn             => "default",
                        userid          => "sa",
                        password        => "password",
                        instance        => "instance"
                        }
        );

        sub new {
                my ($slf, %args) = @_;
                my %array=();
                %array = (%args); #?
                my $self={};
                return bless $self;
        }

        sub printMe() {
                my ($self) = @_;
                print "------ Available Servers ------\n";
                for my $server (keys %serverMap) {
                        print "\nServer: ", $server, "\n";
                        my $hr = $serverMap{$server};
                        for my $cr (keys %{$serverMap{$server}}) {
                                print "\t$cr => $serverMap{$server}{$cr}\n";
                        }
                }
        }

        sub addServer() {
                my ($self, $srvName, $hrCreds) = @_;
                $serverMap{$srvName} = $hrCreds;
        }

        sub removeServerMap($) {
                my ($self) = @_;
                %serverMap = ();
        }

        sub deleteServer($){
                my ($self, $srvName) = @_;
                delete $serverMap{$srvName};
        }

}

1