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 0e351a8267ccee231a5ee6f7a0e1987c83d3e3be..c479630417dd8449a3eda4e521c071e661831f91 100755 (executable)
--- 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) {