Skip to content

Instantly share code, notes, and snippets.

@monken

monken/gist:878659

Created March 20, 2011 20:46
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save monken/878659 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save monken/878659 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.pl
package ElasticSearch::Transport::AEHTTP::Sync;
use strict;
use base 'ElasticSearch::Transport::AEHTTP';
use mro;
sub request {
my $cv = shift->next::method(@_);
return $cv->recv;
}
*refresh_servers = \&ElasticSearch::Transport::refresh_servers;
@clintongormley

clintongormley commented Mar 20, 2011

Copy link
Copy Markdown

nice :) good thinking

why do you need the next::method as opposed to SUPER::request? It introduces a requirement for perl 5.9.5

@monken

monken commented Mar 21, 2011

Copy link
Copy Markdown
Author

Old habits. Changed it to SUPER

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment