File Coverage

blib/lib/Dancer/Plugin/ValidationClass.pm

Criterion	Covered	Total	%
statement	15	34	44.1
branch	0	8	0.0
condition	0	9	0.0
subroutine	5	7	71.4
pod	0	1	0.0
total	20	59	33.9

# ABSTRACT: Centralized Input Validation For Dancer

package Dancer::Plugin::ValidationClass;

use strict;
use warnings;

use Dancer ':syntax';
use Dancer::Plugin;

our $VERSION = '0.120490'; # VERSION

our $Self;


# instance should only remained cached for the duration of the request
hook before => sub {
    $Dancer::Plugin::ValidationClass::Self = undef;
};

# register the keyword
register rules => sub {
    my @args = @_;
    my $cfg = plugin_setting || {};

    $Self = ref $Self ? $Self : instantiate( $cfg || {}, @args );

    return $Self;
};

# instantiation routine
sub instantiate {
    my ( $cfg, @args ) = @_;

    #find validation class
    my $class = my $path = $cfg->{class};
       $class ||= setting('appname') . '::Validation';

    if ( $class =~ /::/ ) {
        $path = "$class.pm";
        $path =~ s/::/\//g;
    }
    elsif ( $class =~ /\.pm$/ ) {
        $path = $class;
        $class =~ s/\.pm$//;
        $class =~ s/\//::/;
    }

    {
        no warnings 'redefine';
        require $path unless defined $Self;
    }

    my $args = {@args}; # specified params supersedes frameworks
       $args->{params} ||= { params() };

    return $class->new(%{ $args });
}

register_plugin;

1;

__END__