Yet Another CPAN Grep

Catalyst-Authentication-Store-KiokuDB ( R/RB/RBERJON/Catalyst-Authentication-Store-KiokuDB-0.03.tar.gz, RBERJON, 2012; MetaCPAN )

Catalyst-Authentication-Store-KiokuDB/lib/Catalyst/Authentication/User/KiokuDB.pm ( view source; MetaCPAN )

les => (
    isa         => 'ArrayRef',
    is          => 'rw',
    auto_deref  => 1,
);

sub TO_JSON {
    my $self = shift;
    my %ret;
    for my $k (qw/id username password crypted_password hash