package RSCard;

our $dbhSC;

sub new {
	my $class = shift;
	my $self = {};

	return( bless($self, $class) );
}

sub _init {
	return ($dbhSC);
}

1;



package RSCard;

our $dbhSC;

sub new {
	my $class = shift;
	my $self = {};

	return( bless($self, $class) );
}

sub _init {
	return ($dbhSC);
}

1;



use lib '.';

use RSCard;
use RSCard::Creates;

$RSCard::dbhSC = 'test';
my $Creates = new RSCard::Creates;
$Creates->something;