{
      my @DRIVER = Alzabo::Driver->available;
      my @RULE =   Alzabo::RDBMSRules->available;
      my $sg = (scalar grep { $p{rdbms} eq $_ } Alzabo::RDBMSRules->available);
      warn Data::Dumper->Dump([\@DRIVER, \@RULE, $sg], [qw(DRIVER RULE sg)] );
      my %has =
	(
	 driver => grep { $p{rdbms} eq $_ } Alzabo::Driver->available,
	 rules  => (scalar grep { $p{rdbms} eq $_ } Alzabo::RDBMSRules->available)
	 ? 'yes' : 'no',
	 rules2 => (scalar grep { $p{rdbms} eq $_ } Alzabo::RDBMSRules->available)
	);
      use Data::Dumper;
      die Dumper(\%has);

##</code><code>##



        ~/hacks/gerbold/scripts $ perl s.pl
$DRIVER = [
            'Gerbold',
            'MySQL',
            'PostgreSQL'
          ];
$RULE = [
          'MySQL',
          'PostgreSQL'
        ];
$sg = 0;
$VAR1 = {
          'driver' => 'Gerbold'
        };
        ~/hacks/gerbold/scripts $