Redis.pmでexpireコマンドを実行する

Redis - Perl binding for Redis database - metacpan.org

ぱっと見、ドキュメントにもソースにもexpireメソッドみたいなのがないので、
できないのかと思ったけど、できることをツイッターで教えていただけました。

@memememomo podには書いてないようですが、redisのコマンド類はAUTOLOADで実装されているのでexpire()が使えます

— fujiwaraさん (@fujiwara) 2013年2月28日

ということなので、試してみたら行けた。

use strict;
use warnings;
use Redis;

my $redis = Redis->new(
    reconnect => 1,
    every => 500,
);

$redis->set('foo', 'bar');
$redis->expire('foo', 10);

warn $redis->get('foo');

sleep(11);

warn $redis->get('foo');

AUTOLOADで実装されているみたいなので、podに記述されていないコマンドでも実行できるみたいですね。