Inheriting from DBI

[janDD]

Hi, I try to derive two classes from DBI with the following code:

use strict;
use warnings;
use DBI;

BEGIN{
  package MyDBI;
  our @ISA = ('DBI','MyDBI::st');

  sub connect {
    my $class=shift;
    my ($db,$user,$pw) = @_;
    my $self = DBI->connect($db,$user,$pw, { RaiseError => 1  } );
    bless $self;
    return $self;
  }
}

# ----------------------------------------
BEGIN {
  package MyDBI::st;
  our @ISA = ('DBI::st');
  
  sub query {
    my $class = shift;
    my $self = $class->prepare("SELECT * FROM `table` LIMIT 2");
    $self->execute();
    bless $self;
    return $self;
  }
}

my $dbh = MyDBI->connect("x","y","z"} );
my $sth = $dbh->query();

and perl gives the answer:

Can't locate auto/MyDBI/prepare.al in @INC (@INC contains ....) at lin
+e DB.pm line 29

I tried a couple of things, including using SUPER:: and different settings of @ISA but I don't find a solution. Thanks for your help, Jan