Взглянув на источники обоих, Imager::Search
не намного больше, чем обёртка для Imager::Screenshot
.
Вот конструктор:
sub new {
my $class = shift;
my @params = ();
@params = @{shift()} if _ARRAY0($_[0]);
my $image = Imager::Screenshot::screenshot( @params );
unless ( _INSTANCE($image, 'Imager') ) {
Carp::croak('Failed to capture screenshot');
}
# Hand off to the parent class
return $class->SUPER::new( image => $image, @_ );
}
Учитывая, что Imager::Search
на самом деле не расширяет Imager::Screenshot
намного больше, я бы сказал, что вы смотрите на два одинаковых модуля.