File Coverage

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

Criterion	Covered	Total	%
statement	32	37	86.4
branch	12	16	75.0
condition	5	7	71.4
subroutine	11	13	84.6
pod	8	9	88.8
total	68	82	82.9

package Net::Async::WebSearch::Provider;
our $VERSION = '0.002';
# ABSTRACT: Base class for Net::Async::WebSearch providers
use strict;
use warnings;
use Carp qw( croak );

sub new {
  my ( $class, %args ) = @_;
  my $self = bless { %args }, $class;
  $self->{enabled} = 1 unless defined $self->{enabled};
  $self->{tags}  ||= [];
  $self->_init;
  return $self;
}

sub _init {}

sub default_name {
  my ( $self ) = @_;
  my $pkg = ref $self;
  $pkg =~ s/.*:://;
  return lc $pkg;
}

sub name {
  my ( $self ) = @_;
  @_ > 1 ? ($self->{name} = $_[1]) : ($self->{name} // $self->default_name);
}

sub enabled { @_ > 1 ? ($_[0]->{enabled} = $_[1]) : $_[0]->{enabled} }

sub tags {
  my ( $self ) = @_;
  return @{ $self->{tags} || [] };
}

sub has_tag {
  my ( $self, $tag ) = @_;
  return scalar grep { $_ eq $tag } @{ $self->{tags} || [] };
}

sub matches {
  my ( $self, $sel ) = @_;
  return 1 if $sel eq $self->name;
  return 1 if $sel eq $self->default_name;
  return 1 if $self->has_tag($sel);
  return 0;
}

sub user_agent_string {
  'Net-Async-WebSearch/' . ($Net::Async::WebSearch::VERSION // 'dev');
}

# Subclasses MUST implement.
# Signature: $self->search($http, $query, \%opts)
# Returns: Future of arrayref of Net::Async::WebSearch::Result
sub search {
  my ( $self ) = @_;
  croak ref($self).": must implement search()";
}

1;

__END__