/usr/share/perl5/DBD/Mock/Pool.pm is in libdbd-mock-perl 1.45-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 | package DBD::Mock::Pool;
use strict;
use warnings;
my $connection;
sub connect {
return $connection if $connection;
# according to the code before my tweaks, this could be a class
# name, but it was never used - DR, 2008-11-08
shift unless ref $_[0];
my $drh = shift;
return $connection = bless $drh->connect(@_), 'DBD::Mock::Pool::db';
}
1;
|