File Coverage

lib/Badger/Data/Facet/Class.pm

Criterion	Covered	Total	%
statement	16	20	80.0
branch	1	4	25.0
condition	1	3	33.3
subroutine	5	6	83.3
pod	3	3	100.0
total	26	36	72.2

package Badger::Data::Facet::Class;

use Carp;
use Badger::Data::Facets;
use Badger::Class
    version    => 0.01,
    debug      => 0,
    uber       => 'Badger::Class',
    utils      => 'camel_case',
    constants  => 'DELIMITER ARRAY',
    constant   => {
        FACETS => 'Badger::Data::Facets',
        FACET  => 'Badger::Data::Facet',
    },
    hooks      => {
        type   => \&type,
        args   => \&args,
        opts   => \&opts,
    };


sub type {
    my ($self, $type) = @_;
    my $facet = $self->FACETS->prototype->find($type)
        || croak "Invalid facet type: $type\n";
    $self->base($facet);
}


sub args {
    my ($self, $args) = @_;

    $args = [ split(DELIMITER, $args) ]
        unless ref $args eq ARRAY;

    $self->var( ARGS => $args );
    $self->mutators($args);
}


sub opts {
    my ($self, $opts) = @_;

    $opts = [ split(DELIMITER, $opts) ]
        unless ref $opts eq ARRAY;

    $self->var( OPTS => $opts );
    $self->mutators($opts);
}


1;
__END__