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/URL_Title.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Plugin/URL_Title.pm')

diff --git a/Plugin/URL_Title.pm b/Plugin/URL_Title.pm
index 9d20cd6..e93de26 100644
--- a/Plugin/URL_Title.pm
+++ b/Plugin/URL_Title.pm
@@ -6,6 +6,8 @@ use HTTP::Tiny;
 use HTML::Parser;
 use utf8;
 
+use IdaliusConfig qw/assert_scalar/;
+
 my $config;
 
 sub configure {
@@ -13,6 +15,10 @@ sub configure {
 	my $cmdref = shift;
 	shift; # run_command
 	$config = shift;
+
+	IdaliusConfig::assert_scalar($config, $self, "url_len");
+	die "url_len must be positive" if $config->{url_len} <= 0;
+
 	return $self;
 }
 
-- 
cgit v1.1