File Coverage

blib/lib/Devel/Unplug/OO.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	25	25	100.0

package Devel::Unplug::OO;

use strict;
use warnings;
use Devel::Unplug ();

=head1 NAME

Devel::Unplug::OO - OO interface to L

=head1 VERSION

This document describes Devel::Unplug::OO version 0.03

=cut

use vars qw($VERSION @ISA);

$VERSION = '0.03';

=head1 SYNOPSIS

    {
        my $unp = Devel::Unplug::OO->new( 'Some::Module' );
        eval "use Some::Module";
        like $@, qr{Some::Module}, "failed OK";
    }
    eval "use Some::Module";
    ok !$@, "loaded OK";

=head1 DESCRIPTION

C is an object oriented wrapper around
L. It provides a convenient interface for unplugging a
set of modules for the life of a particular scope and then automatically
inserting them at the end of the scope.

=cut

=head1 INTERFACE

=head2 C<< new( $module ... ) >>

Make a new C. Any modules named as parameters
will be unplugged. When the returned object is destroyed they will
be re-inserted.

    # Unplug
    my $u = Devel::Unplug::OO->new( 'Some::Module' );

    # Insert
    undef $u;

=cut

sub new {
    my $class = shift;
    my $self = bless [@_], $class;
    Devel::Unplug::unplug( @$self );
    return $self;
}

sub DESTROY {
    my $self = shift;
    Devel::Unplug::insert( @$self );
}

1;
__END__