From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 6E5B71F934 for ; Sun, 3 Oct 2021 07:41:24 +0000 (UTC) From: Eric Wong To: mwrap-perl@80x24.org Subject: [PATCH 1/4] support quiet accessor Date: Sun, 3 Oct 2021 07:41:21 +0000 Message-Id: <20211003074124.12921-2-e@80x24.org> In-Reply-To: <20211003074124.12921-1-e@80x24.org> References: <20211003074124.12921-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: 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 {