view release on metacpan or  search on metacpan

lib/IPC/PubSub/Cache/JiftyDBI.pm  view on Meta::CPAN

use strict;
use warnings;
use base 'IPC::PubSub::Cache';
use IPC::PubSub::Cache::JiftyDBI::Stash;

use vars qw/$STASH/;

sub new {
    my $class = shift;
    my $self = {};
    bless $self => $class;
    $STASH ||= IPC::PubSub::Cache::JiftyDBI::Stash->new(@_);

   return $self; 
}

sub disconnect {
    $STASH->handle->disconnect;
}

sub fetch {