Displaying 1 result from an estimated 1 matches for "set_sql".
Did you mean:
set_sg
2006 Apr 27
1
SOAP service - perl server, ruby consumer incompatability
...ckage OdbcBridgeServer;
use DBI;
use strict;
sub new
{
my $type = shift(@_);
my $class = ref($type) || $type;
my $self = {
class => $class,
sql => shift,
@_
};
bless ($self, $class);
$self;
}
sub set_sql()
{
my $self = shift(@_);
my $sql = shift(@_) || "Select * from stock_master";
return "" if !($sql =~ /^select/i);
$self->{sql} = $sql;
}
1;
=== end module file ===
*Client Side*
The third file is the client.
=== client script - on /Users/elinalaw/src/odbc...