File Coverage

blib/lib/Teng/Plugin/RowObjectCreationSwitcher.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch	0	2	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	1	100.0
total	21	32	65.6

package Teng::Plugin::RowObjectCreationSwitcher;
use 5.008005;
use strict;
use warnings;

our $VERSION = "0.03";

use Scope::Guard;
use Carp qw();

our @EXPORT = qw(temporary_suppress_row_objects_guard);

sub temporary_suppress_row_objects_guard {
    my ($self, $new_status) = @_;

    if( @_ < 2 ) { #missing $new_status
        Carp::croak('error: missing argument');
    }

    my $current_status = $self->suppress_row_objects(); #preserve current(for guard object)
    $self->suppress_row_objects($new_status);

    return Scope::Guard->new(sub {
        $self->suppress_row_objects($current_status);
    });
}



1;
__END__