diff options
| author | Yorhel <git@yorhel.nl> | 2015-04-27 12:26:11 +0200 |
|---|---|---|
| committer | Yorhel <git@yorhel.nl> | 2015-04-27 12:26:11 +0200 |
| commit | 2646abcec9ee274dd35acde7eb8de01577ce931b (patch) | |
| tree | 2f0c0aa596f0b339686db4fe9dc5aa7ec115fda8 /lib/Multi/Core.pm | |
| parent | 141fbfdb168168b478fc0f5265cc9ee572519434 (diff) | |
Multi::API: Fully implement 'get' command with AnyEvent
Diffstat (limited to 'lib/Multi/Core.pm')
| -rw-r--r-- | lib/Multi/Core.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Multi/Core.pm b/lib/Multi/Core.pm index 36f9aae6..3244927e 100644 --- a/lib/Multi/Core.pm +++ b/lib/Multi/Core.pm @@ -183,6 +183,8 @@ sub pg_cmd { my($q, $a, $s) = @_; my $r; + #AE::log debug => sprintf "%s:%d: %s | %s", (caller)[0,2], $q, $a ? join ', ', @$a : ''; + my $sub = !$s || !ref $s ? do { my $loc = sprintf '%s:%d%s', (caller)[0,2], $s ? ":$s" : ''; sub { pg_expect $_[0], undef, $loc } |