package L_Switch::L_Veda;
require L_Switch;
@ISA = qw(L_Switch);
use strict;
use warnings;
use NET::SSH2;

sub new { }    # something in here

sub login {
	my $self = shift;
	$self -> {'ssh'} -> connect($self -> {'ip'});
	$self -> {'ssh'} -> auth_password($self -> {'username'}, $self -> {'password'});
	return 0;
}

1;