File Coverage

blib/lib/Plack/Middleware/Debug/Redis/Keys.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	3	6	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	38	41	92.6

package Plack::Middleware::Debug::Redis::Keys;

# ABSTRACT: Redis keys debug panel

use strict;
use warnings;
use parent qw(Plack::Middleware::Debug::Base Plack::Middleware::Debug::Redis);

our $VERSION = '0.03'; # VERSION
our $AUTHORITY = 'cpan:CHIM'; # AUTHORITY

sub prepare_app {
    my ($self) = @_;

    $self->redis_connect;
}

sub run {
    my ($self, $env, $panel) = @_;

    $panel->title('Redis::Keys');
    $panel->nav_title($panel->title);

    my %measure = (
        'HASH'   => 'hlen',
        'LIST'   => 'llen',
        'STRING' => 'strlen',
        'ZSET'   => 'zcard',
        'SET'    => 'scard',
    );

    return sub {
        my ($res) = @_;

        my ($keyz, $ktype, $klen);
        $self->redis->select($self->db);
        my @keys = $self->redis->keys('*');
        $panel->nav_subtitle('DB #' . $self->db . ' (' . scalar(@keys) . ')');

        for my $key (sort @keys) {
            $ktype = uc($self->redis->type($key));

            my $method = exists $measure{$ktype} ? $measure{$ktype} : undef;

            $klen = $method ? $self->redis->$method($key) : undef;

            $keyz->{$key} = $ktype . ($klen ? ' (' . $klen . ')' : '');
        }

        $panel->content($self->render_hash($keyz));
    };
}

1; # End of Plack::Middleware::Debug::Redis::Keys

__END__