view release on metacpan or  search on metacpan

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

	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

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

	my $dbpass = $self->dbpass();
	return ("dbi:mysql:$dbname","$dbuser","$dbpass");
}

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