File Coverage

blib/lib/Valiemon/Attributes.pm

Criterion	Covered	Total	%
statement	27	30	90.0
branch	4	4	100.0
condition			n/a
subroutine	8	10	80.0
pod	0	3	0.0
total	39	47	82.9

package Valiemon::Attributes;
use strict;
use warnings;
use utf8;

use Carp qw(croak);
use Exporter qw(import);
use Class::Load qw(is_class_loaded try_load_class);
use Valiemon::ValidationError;

our @EXPORT_OK = qw(attr);

sub attr {
    my ($name) = @_;
    $name =~ s/^\$//; # TODO have package mappings instead of dinamic load
    my $class = join '::', __PACKAGE__, (ucfirst $name);
    return $class if is_class_loaded($class);

    my ($is_success) = try_load_class($class);
    return $is_success ? $class : undef;
}

sub attr_name {
    croak '`attr_name` method must be implemented';
}

sub is_valid {
    my ($class, $context, $schema, $data) = @_;
    croak '`is_valid` method must be implemented';
}

1;