From fb6a4e3d1893cf394778dcae77db790f4571b4a2 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 1 Feb 2014 14:32:47 +0200
Subject: [PATCH] Name subs with Sub::Name

---
 Makefile.PL             | 1 +
 lib/Gruntmaster/Data.pm | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index 068bbb9..4ae4ad6 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -20,6 +20,7 @@ WriteMakefile(
 		   IO::Prompter 0
 		   JSON 0
 		   Redis 0
+		   Sub::Name 0
 		   Term::ANSIColor 0/,
 	},
 	META_MERGE        => {
diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm
index 1b2492c..a90149a 100644
--- a/lib/Gruntmaster/Data.pm
+++ b/lib/Gruntmaster/Data.pm
@@ -4,16 +4,17 @@ use warnings;
 use parent qw/Exporter/;
 
 use JSON qw/encode_json decode_json/;
-
 use Redis;
+use Sub::Name qw/subname/;
 
 our $contest;
 my $redis = Redis->new;
 my $pubsub = Redis->new;
 
 sub dynsub{
+	our ($name, $sub) = @_;
 	no strict 'refs';
-	*{$_[0]} = $_[1];
+	*$name = subname $name => $sub
 }
 
 BEGIN {
-- 
2.39.2