/usr/share/doc/libbio-das-lite-perl/examples/uniprot-test is in libbio-das-lite-perl 2.11-4.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | #!/usr/bin/perl -wT
use lib qw(./blib/lib ./lib ../blib/lib);
use strict;
use Bio::Das::Lite;
use Data::Dumper;
$Bio::Das::Lite::DEBUG = 0;
my $bd = Bio::Das::Lite->new("http://www.ebi.ac.uk/das-srv/uniprot/das/uniprot");
#print Dumper($bd->features("P50225"));
my $blks = [];
my $res = $bd->features('P50225',
sub {
my ($a) = @_;
my $rq_key = (keys %{$bd->{'data'}})[0];
push @{$blks}, $bd->{'data'}->{$rq_key};
# print STDERR "a=$a\n";
# print STDERR "CALLBACK a=".Dumper($a)."\n";
},
);
print "First block was: $blks->[0]\n";
print "Callback was called @{[scalar @$blks]} times\n";
my $key = (keys %$res)[0];
print "res=$res, key=$key, res->key = $res->{$key}\n";
if(ref($res->{$key}) eq "ARRAY") {
print "Got @{[scalar @{$res->{$key}}]} sets back\n";
} else {
print Dumper $res;
}
|