|
Lines 38-43
use Clone qw( clone );
Link Here
|
| 38 |
use Modern::Perl; |
38 |
use Modern::Perl; |
| 39 |
use Readonly qw( Readonly ); |
39 |
use Readonly qw( Readonly ); |
| 40 |
use Search::Elasticsearch; |
40 |
use Search::Elasticsearch; |
|
|
41 |
use Search::Elasticsearch::Role::Cxn; |
| 42 |
{ |
| 43 |
# Monkey-patch Search::Elasticsearch::Role::Cxn::process_response |
| 44 |
no warnings 'redefine'; |
| 45 |
|
| 46 |
my $orig_sub = \&Search::Elasticsearch::Role::Cxn::process_response; |
| 47 |
|
| 48 |
# Override method |
| 49 |
*Search::Elasticsearch::Role::Cxn::process_response = sub { |
| 50 |
my ( $self, $params, $code, $msg, $body, $headers ) = @_; |
| 51 |
|
| 52 |
#if ( $headers && $headers->{'x-elastic-product'} ne 'Elasticsearch' ) { |
| 53 |
# $Search::Elasticsearch::Role::Cxn::PRODUCT_CHECK_VALUE = ''; |
| 54 |
#} |
| 55 |
$Search::Elasticsearch::Role::Cxn::PRODUCT_CHECK_VALUE = ''; |
| 56 |
$orig_sub->(@_); |
| 57 |
}; |
| 58 |
} |
| 59 |
|
| 41 |
use Try::Tiny qw( catch try ); |
60 |
use Try::Tiny qw( catch try ); |
| 42 |
use YAML::XS; |
61 |
use YAML::XS; |
| 43 |
|
62 |
|
| 44 |
- |
|
|