NAME

Aniki::Filter::Declare - DSL for declaring actions on sometimes

SYNOPSIS

package MyApp::DB::Filter;
use strict;
use warnings;

use Aniki::Filter::Declare;

use Scalar::Util qw/blessed/;
use Time::Moment;
use Data::GUID::URLSafe;

# apply callback to row before insert
trigger insert => sub {
    my ($row, $next) = @_;
    $row->{created_at} = Time::Moment->now;
    return $next->($row);
};

# define trigger/inflate/deflate filters in table context.
table author => sub {
    trigger insert => sub {
        my ($row, $next) = @_;
        $row->{guid} = Data::GUID->new->as_base64_urlsafe;
        return $next->($row);
    };

    inflate name => sub {
        my $name = shift;
        return uc $name;
    };

    deflate name => sub {
        my $name = shift;
        return lc $name;
    };
};

# define inflate/deflate filters in global context. (apply to all tables)
inflate qr/_at$/ => sub {
    my $datetime = shift;
    return Time::Moment->from_string($datetime.'Z', lenient => 1);
};

deflate qr/_at$/ => sub {
    my $datetime = shift;
    return $datetime->at_utc->strftime('%F %T') if blessed $datetime and $datetime->isa('Time::Moment');
    return $datetime;
};

FUNCTIONS

table

inflate

deflate

trigger

SEE ALSO

perl

LICENSE

Copyright (C) karupanerura.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

karupanerura <karupa@cpan.org>