package Myapp::BerkeleyDB
use warnings;
use strict;
use BerkeleyDB;
use base 'BerkeleyDB::Btree';

sub connect {
   my ($class, $dbname) = @_
   return $class->SUPER::new(
       -Filename => $dbname,
       ...
   )
}