From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 May 2020 23:56:53 +0000 (+0100)
Subject: nailing-cargo: Provide cfg_bool
X-Git-Tag: nailing-cargo/1.0.0~195
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=5c60e598ca8e82a997da0eee3e3dbe20f1536842;p=nailing-cargo.git

nailing-cargo: Provide cfg_bool

No callers yet.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/nailing-cargo b/nailing-cargo
index 0e351a8..c479630 100755
--- a/nailing-cargo
+++ b/nailing-cargo
@@ -200,6 +200,12 @@ sub cfgn {
 sub cfgs  { cfge 'scalar', @_ }
 sub cfgsn { cfgn 'scalar', @_ }
 
+sub cfg_bool {
+  my $v = cfg_uc @_;
+  return $v if !defined($v) || Types::Serialiser::is_bool $v;
+  badcfg @_, "expected boolean";
+}
+
 sub cfgn_list {
   my $l = cfge 'ARRAY', @_;
   foreach my $x (@$l) {