29 lines
446 B
Perl
29 lines
446 B
Perl
package RedisLib;
|
|
|
|
use 5.018;
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use open qw (:std :utf8);
|
|
use Log::Any qw ($log);
|
|
use Data::Dumper;
|
|
|
|
use version; our $VERSION = qw (1.0);
|
|
use Exporter qw (import);
|
|
our @EXPORT_OK = qw (redis_parse_message);
|
|
|
|
sub redis_parse_message {
|
|
my $self = shift;
|
|
my $m = shift;
|
|
my $answer = $m;
|
|
my $send_to = $answer->{from};
|
|
|
|
$log->error (Dumper $self);
|
|
|
|
return;
|
|
};
|
|
|
|
1;
|
|
|
|
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:
|