पर्ल कनेक्शन पूलिंग

मुझे DBIx::Connection का कोई अनुभव नहीं है, लेकिन मैं DBIx::Connector (अनिवार्य रूप से DBIx::Class आंतरिक रूप से क्या उपयोग करता है, लेकिन इनलाइन) और यह अद्भुत है...

मैं इन कनेक्शनों को एक मूस ऑब्जेक्ट रैपर के साथ पूल करता हूं जो कनेक्शन पैरामीटर समान होने पर मौजूदा ऑब्जेक्ट इंस्टेंस को वापस कर देता है (यह किसी भी अंतर्निहित डीबी ऑब्जेक्ट के लिए समान काम करेगा):

package MyApp::Factory::DatabaseConnection;
use strict;
use warnings;

use Moose;

# table of database name -> connection objects
has connection_pool => (
    is => 'ro', isa => 'HashRef[DBIx::Connector]',
    traits  => ['Hash'],
    handles => {
        has_pooled_connection => 'exists',
        get_pooled_connection => 'get',
        save_pooled_connection => 'set',
    },
    default => sub { {} },
);

sub get_connection
{
    my ($self, %options) = @_;

    # some application-specific parsing of %options here...

    my $obj;
    if ($options{reuse})
    {
        # extract the last-allocated connection for this database and pass it
        # back, if there is one.
        $obj = $self->get_pooled_connection($options{database});
    }

    if (not $obj or not $obj->connected)
    {
        # look up connection info based on requested database name
        my ($dsn, $username, $password) = $self->get_connection_info($options{database});
        $obj = DBIx::Connector->new($dsn, $username, $password);

        return unless $obj;

        # Save this connection for later reuse, possibly replacing an earlier
        # saved connection (this latest one has the highest chance of being in
        # the same pid as a subsequent request).
        $self->save_pooled_connection($options{database}, $obj) unless $options{nosave};
    }

    return $obj;
}