view release on metacpan or  search on metacpan

lib/Data/Printer/Scoped.pm  view on Meta::CPAN

  # 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;