#!/usr/bin/perl -w
#
# ch04/listdsns: Enumerates all data sources and all installed drivers
#
use DBI;

## Probe DBI for the installed drivers
my @drivers = DBI->available_drivers();
unless ( @drivers ){
     die "No drivers found!\n"
}

### Iterate through the drivers and list the data sources for each one
print "My installed drivers for DBI:\n";
foreach my $driver ( @drivers ) {
    print "Driver: $driver\n";
#    my @dataSources = DBI->data_sources( $driver );
#    foreach my $dataSource ( @dataSources ) {
#        print "\tData Source is $dataSource\n";
#    }
}