sub new my class shift my self bless self class self- dbh login o_sid

1
2
3
4
5
6
7
8
9
sub new {
my $class = shift;
my $self = {};
bless($self,$class) ;
$self->{dbh} = login($o_sid,$o_user,$o_pass);
return $self;
}