package NetWorkDBD;

use SQL::Parser;

sub new {
	my ($dsn, $user, $pass, $atts,$pkg) = @_;


#	...

}

sub selectrow {
	my $self = shift;
	my $sql = shift;
	my @params = @_;
# ...
}