package MyFramework::DBIClass;

  sub setup { 
    $MyFramework::ActiveDBIClass->connect_database
  }
  
  ...
  
  package MyWebApp;

  $MyFramework::ActiveDBIClass = 'MyWebApp::DBIClass';