package Redis; # Fake Redis class >= 2.00: two-parameter auth is supported $INC{'Redis.pm'}="fake.pm"; $Redis::VERSION = '2.000'; sub new { my ($class, %options) = @_; bless ({}, $class); } sub info { } sub auth($$) { } sub quit() { } 1;