protection if there are no hooks registered yet

diff --git a/lib/CIL.pm b/lib/CIL.pm
index 42451a26f8933f9c799d2f6bfcd1e4e849fc8b95..c433810f75be5d19056556f841d7574ab7f77a5b 100644 (file)
--- a/lib/CIL.pm
+++ b/lib/CIL.pm
@@ -310,8 +310,10 @@ sub run_hook {
     }
 
     # call all the hooks with all the args
-    foreach my $code ( @{$self->hook->{$hook_name}} ) {
-        &$code( $self, @rest );
+    if ( ref $self->hook eq 'HASH' ) {
+        foreach my $code ( @{$self->hook->{$hook_name}} ) {
+            &$code( $self, @rest );
+        }
     }
 }