package myObject;

use strict;
use warnings;

use vars '$VERSION';
$VERSION = 1.00;

my %serverMap = (
	default => {
		ipaddress => "127.0.0.1",
		dsn       => "default",
		userid    => "sa",
		password  => "password",
		instance  => "instance"
	}
);

# use the arguments in $serverMap{ default } as attribute defaults
sub new
{
	my $class = shift;
	my %self  = ( %{ $serverMap{ default } }, @_ );
	bless \%self, $class;
}

sub printMe
{
	my $self = shift;
	print "------ Available Servers ------\n";
	for my $server ( keys %$self )
	{
		print "\nServer: ", $server, "\n";

		for my $cr ( keys %{ $self->{$server} } )
		{
			print "\t$cr => $self->{$server}{$cr}\n";
		}
	}
}

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

sub removeServerMap
{
	my $self = shift;
	%$self = ();
}

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

1;