File Coverage

blib/lib/Class/DBI/Plugin/NoCache.pm

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod			n/a
total	12	28	42.8

package Class::DBI::Plugin::NoCache;
use strict;
use vars qw/$VERSION/;
$VERSION = 0.03;
sub import {
    my $class = shift;
    my $pkg   = caller(0);
    unless($pkg->isa('Class::DBI')){
        require Carp;
        Carp::croak("This is a plugin for Class::DBI.");
    }
    $pkg->mk_classdata('nocache');
    no strict 'refs';
    my $super = $pkg->can('_init');
    *{$pkg."::_init"} = sub {
        my $caller = shift;
        local $Class::DBI::Weaken_Is_Available = not $caller->nocache;
        return $super->($caller, @_);
    };
}
1;
__END__