view release on metacpan or  search on metacpan

examples/UberBot/Seen.pm  view on Meta::CPAN

            $secs->minutes . " minutes and " .
            $secs->seconds . " seconds ago, saying: " .
            $seen->{msg} . " [" .
            gmtime($seen->{'time'})->strftime . "]";
    }
    else {
        return "I haven't seen $user, $nick";
    }
}

sub update_seen {
    my ($self, $nick, $channel, $msg) = @_;
    $self->{seen}{$nick} = {
        'time' => time(),
        'msg' => $msg,
        'channel' => $channel,
        };
}

1;