--- PApp-SQL/SQL.pm	2001/02/18 04:50:58	1.13
+++ PApp-SQL/SQL.pm	2001/03/11 14:54:21	1.14
@@ -45,7 +45,7 @@
 BEGIN {
    use base qw(Exporter DynaLoader);
 
-   $VERSION = 0.121;
+   $VERSION = 0.122;
    @EXPORT = qw(
          sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec
    );
@@ -368,6 +368,14 @@
 
 Return the DSN (L<DBI>) fo the database object (e.g. for error messages).
 
+=item $db->login
+
+Return the login name.
+
+=item $db->password
+
+Return the password (emphasizing the fact that the apssword is stored plaintext ;)
+
 =cut
 
 sub dsn($) {
@@ -375,6 +383,16 @@
    (split /\x00/, $self->[0])[1];
 }
 
+sub login($) {
+   my $self = shift;
+   (split /\x00/, $self->[0])[2];
+}
+
+sub password($) {
+   my $self = shift;
+   (split /\x00/, $self->[0])[3];
+}
+
 =back
 
 =cut