File Coverage

blib/lib/Bio/Tools/EUtilities/Link/UrlLink.pm

Criterion	Covered	Total	%
statement	27	40	67.5
branch	3	8	37.5
condition	1	5	20.0
subroutine	14	15	93.3
pod	12	12	100.0
total	57	80	71.2

package Bio::Tools::EUtilities::Link::UrlLink;
$Bio::Tools::EUtilities::Link::UrlLink::VERSION = '1.77';
use utf8;
use base qw(Bio::Root::Root Bio::Tools::EUtilities::EUtilDataI);

# ABSTRACT: Class for EUtils UrlLinks.
# AUTHOR:   Chris Fields
# OWNER:    2006-2013 Chris Fields
# LICENSE:  Perl_5



sub get_dbfrom { return shift->{'_dbfrom'}; }


sub get_attribute { return shift->{'_attribute'}; }


sub get_icon_url { return shift->{'_iconurl'}; }


sub get_subject_type { return shift->{'_subjecttype'}; }


sub get_url {
    my $self = shift;
    # fix Entrz LinkOut URLS without the full URL
    if ($self->{'_url'} && $self->{'_url'} =~ m{^/}) {
        $self->{'_url'} = 'https://www.ncbi.nih.gov'.$self->{'_url'};
    }
    return $self->{'_url'};
}


sub get_link_name { return shift->{'_linkname'};  }


sub get_provider_name { return shift->{'_provider_name'}; }


sub get_provider_abbr { return shift->{'_provider_nameabbr'}; }


sub get_provider_id { return shift->{'_provider_id'}[0]; }


sub get_provider_icon_url { return shift->{'_provider_iconurl'}; }


sub get_provider_url { return shift->{'_provider_url'}; }

# private method

sub _add_data {
    my ($self, $data) = @_;
    if (exists $data->{Provider}) {
        map {$self->{'_provider_'.lc $_} = $data->{Provider}->{$_};
            } keys %{$data->{Provider}};
        delete $data->{Provider};
    }
    map {$self->{'_'.lc $_} = $data->{$_} if $data->{$_}} keys %$data;
}


sub to_string {
    my $self = shift;
    my $level = shift || 0;
    my $pad = 20 - $level;
    #        order     method                    name
    my %tags = (1 => ['get_link_name'          => 'Link Name'],
                2 => ['get_subject_type'       => 'Subject Type'],
                3 => ['get_dbfrom'             => 'DB From'],
                4 => ['get_attribute'          => 'Attribute'],
                6 => ['get_icon_url'           => 'IconURL'],
                7 => ['get_url'                => 'URL'],
                8 => ['get_provider_name'      => 'Provider'],
                9 => ['get_provider_abbr'      => 'ProvAbbr'],
                10 => ['get_provider_id'       => 'ProvID'],
                11 => ['get_provider_url'      => 'ProvURL'],
                12 => ['get_provider_icon_url' => 'ProvIcon'],
                );
    my $string = '';
    for my $tag (sort {$a <=> $b} keys %tags) {
        my ($m, $nm) = ($tags{$tag}->[0], $tags{$tag}->[1]);
        my $content = $self->$m();
        next unless $content;
        $string .= $self->_text_wrap(
                 sprintf("%-*s%-*s:",$level, '',$pad, $nm,),
                 ' ' x ($pad).':',
                 $content)."\n";
    }
    return $string;
}

1;

__END__