File Coverage

blib/lib/Data/Printer/Scoped.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	1	1	100.0
total	41	41	100.0

package Data::Printer::Scoped;
# ABSTRACT:  silence Data::Printer except in a controlled scope
$Data::Printer::Scoped::VERSION = '0.001004';
use strict;
use warnings;

use Data::Printer ();
use Import::Into;
use Context::Preserve;
use Class::Method::Modifiers qw(:all);

use base qw(Exporter);

our @EXPORT = qw(scope);

our $enabled = 0;

install_modifier('Data::Printer', 'around', '_print_and_return', sub {
  my $orig = shift;

  # noop unless enabled.
  return $enabled ? $orig->(@_) : ();
});

sub import {
  shift->export_to_level(1);
  Data::Printer->import::into(1);
}

# we only blanket disable Data::Printer if a scope() call has been made.
sub scope(&) {
  my ($code) = @_;

  $enabled = 0;

  return preserve_context { $enabled = 1; $code->() }
             after => sub { $enabled = 0 };
}

1;

__END__