<commit_before>=head1 NAME

EnsEMBL::Web::Component::DAS::Annotation

=head1 SYNOPSIS

Show information about the webserver

=head1 DESCRIPTION

A series of functions used to render server information

=head1 CONTACT

Contact the EnsEMBL development mailing list for info <<EMAIL>>

=head1 AUTHOR

<NAME>, <EMAIL>

=cut

package EnsEMBL::Web::Component::DAS::Annotation;

use EnsEMBL::Web::Component::DAS;
our @ISA = qw( EnsEMBL::Web::Component::DAS);
use strict;
use warnings;

sub features {
    my( $panel, $object ) = @_;

    my $segment_tmp = qq{<SEGMENT id="%s" start="%s" stop="%s">\n};
    my $error_tmp = qq{<ERRORSEGMENT id="%s" start="%s" stop="%s" />\n};

    my $feature_template = qq{
<FEATURE id="%s">
  <START>%d</START>
  <STOP>%d</STOP>
  <TYPE id="%s">%s</TYPE>
  <METHOD id="%s">%s</METHOD>
  <ORIENTATION>%s</ORIENTATION>
</FEATURE>
};



    my $features = $object->Features();
    (my $url = lc($ENV{SERVER_PROTOCOL})) =~ s/\/.+//;
    $url .= "://$ENV{SERVER_NAME}";
#    $url .= "\:$ENV{SERVER_PORT}" unless $ENV{SERVER_PORT} == 80;
    $url .="$ENV{REQUEST_URI}";

    $panel->print(qq{<GFF version="1.01" href="$url">\n});
    foreach my $segment (@{$features || []}) {
	if ($segment->{'TYPE'} && $segment->{'TYPE'} eq 'ERROR') {
	    $panel->print( sprintf ($error_tmp, 
				$segment->{'REGION'},
				$segment->{'START'} || '',<commit_msg>replaced STOP tag with END as per DAS spec<commit_after>=head1 NAME

EnsEMBL::Web::Component::DAS::Annotation

=head1 SYNOPSIS

Show information about the webserver

=head1 DESCRIPTION

A series of functions used to render server information

=head1 CONTACT

Contact the EnsEMBL development mailing list for info <<EMAIL>>

=head1 AUTHOR

<NAME>, <EMAIL>

=cut

package EnsEMBL::Web::Component::DAS::Annotation;

use EnsEMBL::Web::Component::DAS;
our @ISA = qw( EnsEMBL::Web::Component::DAS);
use strict;
use warnings;

sub features {
    my( $panel, $object ) = @_;

    my $segment_tmp = qq{<SEGMENT id="%s" start="%s" stop="%s">\n};
    my $error_tmp = qq{<ERRORSEGMENT id="%s" start="%s" stop="%s" />\n};

    my $feature_template = qq{
<FEATURE id="%s">
  <START>%d</START>
  <END>%d</END>
  <TYPE id="%s">%s</TYPE>
  <METHOD id="%s">%s</METHOD>
  <ORIENTATION>%s</ORIENTATION>
</FEATURE>
};



    my $features = $object->Features();
    (my $url = lc($ENV{SERVER_PROTOCOL})) =~ s/\/.+//;
    $url .= "://$ENV{SERVER_NAME}";
#    $url .= "\:$ENV{SERVER_PORT}" unless $ENV{SERVER_PORT} == 80;
    $url .="$ENV{REQUEST_URI}";

    $panel->print(qq{<GFF version="1.01" href="$url">\n});
    foreach my $segment (@{$features || []}) {
	if ($segment->{'TYPE'} && $segment->{'TYPE'} eq 'ERROR') {
	    $panel->print( sprintf ($error_tmp, 
				$segment->{'REGION'},
				$segment->{'START'} || '',
{'fraction_non_alphanumeric': 0.21787911690191822, 'fraction_numerical': 0.007238508867173362, 'mean_word_length': 4.3879142300194935, 'pattern_counts': {'":': 2, '<': 41, '<?xml version=': 0, '>': 55, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4221819', 'n_tokens_mistral': 1099, 'n_tokens_neox': 1049, 'n_words': 234}