view release on metacpan or  search on metacpan

t/lib/FakeRedis.pm  view on Meta::CPAN

use warnings;
{

    package Redis;
    $INC{'Redis.pm'} = 1;
    our $VERSION = 2;
    our $AUTOLOAD;

    sub new {
        my ( $class, %args ) = @_;
        bless \%args => $class;
    }

    sub AUTOLOAD {
        shift;
        my $name = $AUTOLOAD;
        $name =~ s/.*://;
        return $name, @_;
    }
}