File Coverage

blib/lib/Furl/ConnectionCache.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	3	0.0
total	28	31	90.3

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;