File Coverage

lib/Badger/Data/Facets.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	7	8	87.5
condition	2	3	66.6
subroutine	2	2	100.0
pod	1	1	100.0
total	27	30	90.0

#========================================================================
#
# Badger::Data::Facets
#
# DESCRIPTION
#   Factory for Badger::Data::Facets validation objects.
#
# AUTHOR
#   Andy Wardley
#
#========================================================================

package Badger::Data::Facets;

use Badger::Factory::Class
    version   => 0.01,
    debug     => 0,
    item      => 'facet',
    path      => 'Badger::Data::Facet BadgerX::Data::Facet',
    constants => 'HASH DOT';


our $PREFIXES = {
    text    => 'text',
    number  => 'number',
    list    => 'list',
};


sub type_args {
    my $self = shift;
    my $type = shift;       # my $save = $type;   # tmp debug
    my $name = $type;
    my $base;

    # See if we recognise the initial XXX_ prefix as a short-cut.
    # If so then the part afterwords is the name we're interested in,
    # e.g. text_max_length becomes 'text.max_length' which the factory
    # module will map to '::Text::MaxLength' for loading, while
    # 'max_length' is the name that we'll use as a default argument name.

    if ($type =~ s/^([^\W_]+)(\.|_)(.*)/$3/) {
        if ($2 eq DOT) {
            $type = $1.DOT.$type;
            $name = $3;
        }
        elsif ($base = $PREFIXES->{ $1 }) {
            $type = $base.DOT.$type;
            $name = $3;
        }
        else {
            $type = $1.$2.$type;
        }
    }

    my $args = @_ && ref $_[0] eq HASH ? shift : { $name => shift };

#    $self->debug("save:$save / type:$type / base:$base / name:$name");

    return ($type, $args);
}


1;

__END__