Name subs with Sub::Name

diff --git a/Makefile.PL b/Makefile.PL
index 068bbb99eb9e777338d0ddb39a940f6c7bc88dfa..4ae4ad69a71c551d47f2a76c9311bccb2d7b5e29 100644 (file)
--- 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 1b2492cc28c6a07dc927edf30d4039ec9fe1e1eb..a90149aea9097e00625338c73953d0d6908372fa 100644 (file)
--- 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 {