Name subs with Sub::Name

[gruntmaster-data.git] / lib / Gruntmaster / Data.pm

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 {