/usr/share/perl5/Furl/ConnectionCache.pm is in libfurl-perl 3.13-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | 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;
|