view release on metacpan or  search on metacpan

lib/Enterasys/NetSight.pm  view on Meta::CPAN

package Enterasys::NetSight;
{
  $Enterasys::NetSight::VERSION = '1.2';
}
use strict;

use SOAP::Lite;
use Socket;
use Carp;

# On some systems Crypt::SSLeay tries to use IO::Socket::SSL and breaks,
# This forces it to use Net::SSL just in case.
$ENV{PERL_NET_HTTPS_SSL_SOCKET_CLASS}="Net::SSL";
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
$ENV{https_proxy}="";

sub new
{
	my ($class, $args)=@_;
	my $self= 
	{