File Coverage

blib/lib/FormValidator/Simple/Plugin/Trim.pm

Criterion	Covered	Total	%
statement	21	24	87.5
branch	3	8	37.5
condition			n/a
subroutine	6	7	85.7
pod	4	4	100.0
total	34	43	79.0

package FormValidator::Simple::Plugin::Trim;

use strict;
use warnings;

our $VERSION = '1.00';

use FormValidator::Simple::Constants;

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

  s/^\s*(.*?)\s*$/$1/ms foreach (@$params);

  return (TRUE, $#$params ? $params : $params->[0] );
}

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

  $DB::single = 1;
  s/^\s+(.*)$/$1/ms foreach (@$params);

  return (TRUE, $#$params ? $params : $params->[0] );
}

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

  s/^(.*?)\s+$/$1/ms foreach (@$params);

  return (TRUE, $#$params ? $params : $params->[0] );
}

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

  for (@$params) {
    s/\s+/ /g;
    s/^\s*(.*?)\s*$/$1/ms;
  }

  return (TRUE, $#$params ? $params : $params->[0] );
}
1;

__END__