view release on metacpan or  search on metacpan

lib/SQL/Loader.pm  view on Meta::CPAN

get/set dbpass

=cut
sub dbpass {
	my ( $self, $dbpass ) = @_;
	if ( $dbpass ) {
		$self->{dbpass} = $dbpass;
	}
	return $self->{dbpass};
}

=head2 dbh

get/set database handle

=cut
sub dbh {
	my $self = shift;
	if ( !defined( $self->{dbh} ) ) {
		my $dbh = DBI->connect( $self->connect_string(),
														{ RaiseError	=> 1,
															AutoCommit	=> 0,
															ChopBlanks	=> 1
														}
		) || die DBI->errstr;
		$self->{dbh} = $dbh;
	}
	return $self->{dbh};
}

=head2 quiet

get/set quiet param

=cut
sub quiet {
	my ( $self, $quiet ) = @_;
	if ( $quiet ) {
		$self->{quiet} = $quiet;
	}
	return $self->{quiet};
}

=head2 connect_string

return dbh connect string. must be overridden in subclass.

=cut
sub connect_string {
	my $self = shift;
	die __PACKAGE__ . "->connect_string() is abstract\n";
}

1;

__END__

=head1 AUTHOR

Ben Hare for www.strategicdata.com.au

benhare@gmail.com

=head1 COPYRIGHT

(c) Copyright Strategic Data Pty. Ltd.

This module is free software. You can redistribute it or modify it under the same terms as Perl itself.

=cut