Skip to content

Instantly share code, notes, and snippets.

#!/usr/bin/env perl
use strict;
use warnings;
use MojoX::Redis;
my $redis1 = MojoX::Redis->new();
$redis1
->sadd ( "set1" => "foo" )
@sinkovsky
sinkovsky / test.pl
Created February 28, 2012 14:53 — forked from anonymous/test.pl
package Father;
$VERSION = "0.01";
sub new {
my $self = {};
bless $self;
return $self;
};