File Coverage

blib/lib/Net/Async/WebSearch/Result.pm

Criterion	Covered	Total	%
statement	28	36	77.7
branch	8	28	28.5
condition	5	11	45.4
subroutine	12	18	66.6
pod	14	15	93.3
total	67	108	62.0

package Net::Async::WebSearch::Result;
our $VERSION = '0.002';
# ABSTRACT: Single web search result record
use strict;
use warnings;
use URI ();

sub new {
  my ( $class, %args ) = @_;
  my $self = {
    url          => $args{url},
    title        => $args{title},
    snippet      => $args{snippet},
    provider     => $args{provider},
    rank         => $args{rank},
    score        => $args{score},
    published_at => $args{published_at},
    language     => $args{language},
    nsfw         => $args{nsfw},
    domain       => $args{domain},
    fetched      => $args{fetched},
    raw          => $args{raw},
    extra        => $args{extra} || {},
  };
  bless $self, $class;
  # Auto-derive domain from URL if not supplied.
  if ( !defined $self->{domain} && defined $self->{url} ) {
    my $u = eval { URI->new( $self->{url} ) };
    if ( $u && $u->can('host') ) {
      my $h = eval { $u->host };
      $self->{domain} = $h if defined $h && length $h;
    }
  }
  return $self;
}

sub url          { $_[0]->{url} }
sub title        { $_[0]->{title} }
sub snippet      { $_[0]->{snippet} }
sub provider     { $_[0]->{provider} }
sub rank         { @_ > 1 ? ($_[0]->{rank}  = $_[1]) : $_[0]->{rank} }
sub score        { @_ > 1 ? ($_[0]->{score} = $_[1]) : $_[0]->{score} }
sub published_at { $_[0]->{published_at} }
sub language     { $_[0]->{language} }
sub nsfw         { $_[0]->{nsfw} }
sub domain       { $_[0]->{domain} }
sub fetched      { @_ > 1 ? ($_[0]->{fetched} = $_[1]) : $_[0]->{fetched} }
sub raw          { $_[0]->{raw} }
sub extra        { $_[0]->{extra} }

sub to_hash {
  my ( $self ) = @_;
  return {
    url      => $self->{url},
    title    => $self->{title},
    snippet  => $self->{snippet},
    provider => $self->{provider},
    rank     => $self->{rank},
    score    => $self->{score},
    ( defined $self->{published_at} ? ( published_at => $self->{published_at} ) : () ),
    ( defined $self->{language}     ? ( language     => $self->{language} )     : () ),
    ( defined $self->{nsfw}         ? ( nsfw         => $self->{nsfw} ? 1 : 0 ) : () ),
    ( defined $self->{domain}       ? ( domain       => $self->{domain} )       : () ),
    ( defined $self->{fetched}      ? ( fetched      => $self->{fetched} )      : () ),
    ( %{ $self->{extra} || {} } ? ( extra => $self->{extra} ) : () ),
  };
}

1;

__END__