This file is indexed.

/usr/share/doc/libbio-das-lite-perl/examples/regtest 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
#!/usr/bin/perl -wT
use strict;
use lib qw(lib ../lib);
use Bio::Das::Lite;
use Data::Dumper;
$Bio::Das::Lite::DEBUG = 0;

my $das              = Bio::Das::Lite->new();
my $sources          = $das->registry_sources();
my $count_all        = scalar @{$das->registry_sources()};
my $count_stylesheet = scalar @{$das->registry_sources({
							'capability' => ['stylesheet']
						       })};
my $count_protein    = scalar @{$das->registry_sources({
							'category'   => ['Protein Sequence']
						       })};;

print Dumper($das->registry_sources());

print STDERR qq(
all        = $count_all
stylesheet = $count_stylesheet
protein    = $count_protein
\n);