package My::DB::Opa;

use strict;

use base qw(Rose::DB);

our $Connection_Count = 0;

__PACKAGE__->use_private_registry;

__PACKAGE__->registry->add_entry(Rose::DB->registry->entry(type => 'sqlite_admin', domain => 'test')->clone);

__PACKAGE__->default_type('sqlite_admin');

sub init_dbh
{
  $Connection_Count++;
  return shift->SUPER::init_dbh(@_);
}

sub connection_count
{
  my ($self, $val) = @_;
  return defined $val ? $Connection_Count = $val : $Connection_Count;
}

1;