From cfa90dc368a1ac3441185c94d287829d3985ef6d Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
Date: Fri, 21 Sep 2018 14:10:58 +1200
Subject: Validate configuration parameter presence and type

---
 Plugin/Admin.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Plugin/Admin.pm')

diff --git a/Plugin/Admin.pm b/Plugin/Admin.pm
index 9313110..ff64d83 100644
--- a/Plugin/Admin.pm
+++ b/Plugin/Admin.pm
@@ -3,6 +3,8 @@ package Plugin::Admin;
 use strict;
 use warnings;
 
+use IdaliusConfig qw/assert_scalar assert_list/;
+
 my $config;
 
 sub configure {
@@ -11,6 +13,10 @@ sub configure {
 	shift; # run_command
 	$config = shift;
 
+	IdaliusConfig::assert_list($config, $self, "admins");
+	IdaliusConfig::assert_scalar($config, $self, "must_id");
+	IdaliusConfig::assert_scalar($config, $self, "quit_msg");
+
 	$cmdref->("say", sub { $self->say(@_); } );
 	$cmdref->("action", sub { $self->do_action(@_); } );
 
-- 
cgit v1.1