File Coverage

lib/Object/Wrapper/Fork/DBI_stubs.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod			n/a
total	28	30	93.3

########################################################################
# housekeeping
########################################################################

package Object::Wrapper::Fork::DBI_stubs;

use 5.8.0;
use strict;
use parent  qw( Object::Wrapper::Fork );

use Carp;

use Symbol  qw( qualify qualify_to_ref );

########################################################################
# package variables & sanity checks
########################################################################

our $VERSION    = 0.01;

########################################################################
# utility subs
########################################################################

sub import
{
    my $caller  = caller;

    for( qw( connect connect_cached ) )
    {
        # stub out the normal constructors.

        my $name    = qualify $_, $caller;
        my $ref     = qualify_to_ref $name;

        undef &{ *$ref };

        *$ref = sub { croak "Bogus $name: DBI not avaialble" };
    }
}
__END__