[PATCH 1/4] support quiet accessor

[Eric Wong <e@80x24.org>]

This lets developers elide overhead and tracking for
certain parts of their code.
---
 Mwrap.xs  | 7 +++++++
 t/mwrap.t | 3 +++
 2 files changed, 10 insertions(+)

diff --git a/Mwrap.xs b/Mwrap.xs
index ca408b9..c93223e 100644
--- a/Mwrap.xs
+++ b/Mwrap.xs
@@ -781,6 +781,13 @@ BOOT:
 
 PROTOTYPES: ENABLE
 
+size_t
+mwrap_quiet(int on_off)
+CODE:
+	RETVAL = on_off ? locating++ : locating--;
+OUTPUT:
+	RETVAL
+
 size_t
 mwrap_current_age()
 CODE:
diff --git a/t/mwrap.t b/t/mwrap.t
index aba9709..fdae523 100644
--- a/t/mwrap.t
+++ b/t/mwrap.t
@@ -124,6 +124,9 @@ $age_after >= $age_before or die "age did not increment";
 EOF
 diag slurp($out);
 
+is(Devel::Mwrap::quiet(1), 0, 'was not quiet, before');
+is(Devel::Mwrap::quiet(0), 1, 'was quiet, before');
+
 done_testing();
 
 sub slurp {