#!/usr/bin/perl -wT
use strict;
use lib qw(lib ../lib);
use Bio::Das::Lite;

my $bdl = Bio::Das::Lite->new_from_registry({
					   'capability' => ['features'],
					   'category'   => ['Protein Sequence'],
					  });


print qq(Using Bio::Das::Lite v$Bio::Das::Lite::VERSION configured with registry DSN list:\n),
  join("\n", sort @{$bdl->dsn()}),
  "\n";
