<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package Catalyst::Plugin::FixMyStreet::Session::WasteCache;
use Moose::Role;
use namespace::autoclean;

sub waste_cache_set {
    my ($c, $key, $data) = @_;
    $c-&gt;session-&gt;{waste}{$key} = [ time, $data ];
    return $data;
}

sub waste_cache_get {
    my ($c, $key) = @_;
    $c-&gt;session-&gt;{waste}{$key} &amp;&amp; $c-&gt;session-&gt;{waste}{$key}[1];
}

sub waste_cache_delete {
    my ($c, $key) = @_;
    delete $c-&gt;session-&gt;{waste}{$key};
}

__PACKAGE__;
</pre></body></html>