package Furl::ConnectionCache;
use strict;
use warnings;
use utf8;
sub new { bless [''], shift }
sub steal {
my ($self, $host, $port) = @_;
if ($self->[0] eq "$host:$port") {
my $sock = $self->[1];
@{$self} = ('');
return $sock;
} else {
return undef;
}
}
sub push {
my ($self, $host, $port, $sock) = @_;
$self->[0] = "$host:$port";
$self->[1] = $sock;
}
1;