Adminってもんでもないけど、 いちいちtelnetで話すのも面倒だしみたいな。 すげーてきとう。 package Cache::Memcached::Admin; use strict; use warnings; use base qw/Class::Accessor::Fast/; use Term::ReadLine; use File::HomeDir; use Path::Class; use List::MoreUtils qw/uniq/; use Cache::Memcached; sub run { my $self = shift; my $term = Term::ReadLine->new('Cache::Memcached::Admin'); my $HISTFILE = file( File::HomeDir->my_home, '/.memcached_a