File Coverage

blib/lib/WWW/Crawl4AI/StrategyChain.pm

Criterion	Covered	Total	%
statement	29	41	70.7
branch	0	2	0.0
condition			n/a
subroutine	10	13	76.9
pod	1	5	20.0
total	40	61	65.5

package WWW::Crawl4AI::StrategyChain;
# ABSTRACT: ordered list of strategy objects, pluggable at construction time
use Moo;
use WWW::Crawl4AI::Strategy::Plain ();
use WWW::Crawl4AI::Strategy::Browser ();
use WWW::Crawl4AI::Strategy::Stealth ();
use WWW::Crawl4AI::Strategy::CloakBrowser ();
use WWW::Crawl4AI::Strategy::Proxy ();
use WWW::Crawl4AI::Strategy::Callback ();

our $VERSION = '0.001';


# Default order, cheapest first. Override in subclass or at construction.
my @CHAIN_CLASSES = qw(
  WWW::Crawl4AI::Strategy::Plain
  WWW::Crawl4AI::Strategy::Browser
  WWW::Crawl4AI::Strategy::Stealth
  WWW::Crawl4AI::Strategy::CloakBrowser
  WWW::Crawl4AI::Strategy::Proxy
  WWW::Crawl4AI::Strategy::Callback
);


sub chain_classes { @CHAIN_CLASSES }

has strategies => (
  is      => 'ro',
  builder => 1,
);


sub _build_strategies {
  my ( $self ) = @_;
  return [ map { $_->new } $self->chain_classes ];
}

sub add_strategy {
  my ( $self, $strategy ) = @_;
  push @{ $self->{strategies} }, $strategy;
}

sub remove_strategy {
  my ( $self, $name ) = @_;
  @{ $self->{strategies} } = grep { $_->name ne $name } @{ $self->{strategies} };
}

sub replace_strategy {
  my ( $self, $name, $strategy ) = @_;
  my $s = $self->{strategies};
  for my $i ( 0 .. $#$s ) {
    $s->[$i] = $strategy if $s->[$i]->name eq $name;
  }
}

# Filter strategies by applicable($crawler) for this crawler instance.
sub applicable {
  my ( $self, $crawler ) = @_;
  return [ grep { $_->applicable($crawler) } @{ $self->strategies } ];
}

1;

__END__