File Coverage

lib/Badger/Data/Facet/Text/Whitespace.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	4	6	66.6
condition	1	2	50.0
subroutine	3	3	100.0
pod	2	2	100.0
total	26	29	89.6

package Badger::Data::Facet::Text::Whitespace;

use Badger::Data::Facet::Class
    version   => 0.01,
    type      => 'text',
    args      => 'whitespace',
    constant  => {
        PRESERVE => 0,
        FOLD     => 1,
        COLLAPSE => 2,
    };

our $ACTION = {
    preserve => PRESERVE,
    fold     => FOLD,
    collapse => COLLAPSE,
};


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

    $self->SUPER::init($config)
        || return;

    # option must have an entry in $ACCEPT which we store in $self->{ action }
    return $self->error_msg( whitespace => $self->{ whitespace }, join(', ', keys %$ACTION) )
        unless defined ($self->{ action } = $ACTION->{ $self->{ whitespace } });

    return $self;
}


sub validate {
    my ($self, $text, $type) = @_;
    my $action = $self->{ action }      # do nothing for PRESERVE
        || return $text;

    for ($$text) {
        s/[\r\n\t]/ /g;
        if ($action == COLLAPSE) {
            s/ +/ /g;
            s/^ +//;
            s/ +$//;
        }
    }

    return $text;
}


1;

__END__