diff options
| author | David Phillips <david@sighup.nz> | 2018-09-21 14:10:58 +1200 |
|---|---|---|
| committer | David Phillips <david@sighup.nz> | 2018-09-21 14:13:28 +1200 |
| commit | cfa90dc368a1ac3441185c94d287829d3985ef6d (patch) | |
| tree | 7ded14e51cad7f85e5a60ec7fa8abe41d58319cc /Plugin/Admin.pm | |
| parent | 62555509a4ced02f05f44e658abf86d7f665d63f (diff) | |
| download | idalius-cfa90dc368a1ac3441185c94d287829d3985ef6d.tar.xz | |
Validate configuration parameter presence and type
Diffstat (limited to 'Plugin/Admin.pm')
| -rw-r--r-- | Plugin/Admin.pm | 6 |
1 files changed, 6 insertions, 0 deletions
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(@_); } ); |