Dziedziczenie metod z modułu DBI

Thread View: pl.comp.lang.perl

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Waldek Grudzien Tue, 06 Jan 1998 08:52

#863

Author: Waldek Grudzien
Date: Tue, 06 Jan 1998 08:52

44 lines
1971 bytes

Mam kłopot z dziedziczeniem metod obiektów (właściwie konkretnie 
interfac'e DBI, który chciałbym opakować w dodatkowy moduł).
Mam mianowicie programik :
----------------------------------------------------------------------
package DBR;

use DBI ();
@ISA = qw( DBI );

sub connect {
  my ($class,$DBDriver,$DBName,$DBUser,$DBPasswd) = @_;
  my $self  = {};
  $self = DBI->connect("$DBDriver:$DBName",$DBUser,$DBPasswd);
  warn "Błąd połącznia z $DBName\n" unless $self;
  bless $self, $class if $self;
  $self;
}

package main;

my $dbh = DBR->connect("dbi:Pg","xr","","");
$dbh->disconnect;
----------------------------------------------------------------------

Po odpaleniu wyskakuje oczywiście błąd :
Can't locate auto/DBR/disconnect.al in @INC (@INC contains:
/usr/local/lib/perl5
/PA-RISC1.1/5.00403 /usr/local/lib/perl5
/usr/local/lib/perl5/site_perl/PA-RISC1
.1 /usr/local/lib/perl5/site_perl .) at DBR.pl line 18

Co robię nie tak, że metody z DBI nie są widoczne (próbowałem używać
innych metod (niż disconnect) lecz również bez powodzenia) ?

Pozdrawiam i dziekuję z góry za wszelkie porady,

                              Waldek Grudzień

    ///////////////////////////////////////////
   //  http://www.uhc.lublin.pl/~waldekg/   //
  //   Lublin/Lubartów, Poland             //
  \\   University Health Care              \\
   \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads