From 52f183deae39f4b8a5121b7b6043a5bfb3ce30e7 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Fri, 29 May 2020 20:49:24 -0700
Subject: [PATCH] Registerable: add register_front method to register to head
 of list

---
 PBot/Registerable.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/PBot/Registerable.pm b/PBot/Registerable.pm
index ac00e89c..d67d1d38 100644
--- a/PBot/Registerable.pm
+++ b/PBot/Registerable.pm
@@ -54,6 +54,14 @@ sub register {
     return $ref;
 }
 
+sub register_front {
+    my ($self, $subref) = @_;
+    Carp::croak("Must pass subroutine reference to register_front()") if not defined $subref;
+    my $ref = {subref => $subref};
+    unshift @{$self->{handlers}}, $ref;
+    return $ref;
+}
+
 sub unregister {
     my ($self, $ref) = @_;
     Carp::croak("Must pass reference to unregister()") if not defined $ref;