The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Plagger::Cache::Null;
use strict;

sub new {
    bless {}, shift;
}

sub get {
    my($self, $key) = @_;
    $self->{$key};
}

sub set {
    my($self, $key, $value, $expiry) = @_;
    $self->{$key} = $value;
}

sub remove {
    my($self, $key) = @_;
    delete $self->{$key};
}

1;