package Froody::Argument::Trim;

use strict;
use warnings;

use base qw(Froody::Argument);

sub type {
  "trim";
}

sub process {
  my ($self, $param, $check ) = @_;

  $param =~ s/^\s+//;
  $param =~ s/\s+$//;
  
  return $param;
}

1;
__END__
=head1 NAME

Froody::Argument::Trim - trim leading and trailing whitespace

=head1 AUTHORS

Copyright Fotango 2006.  All rights reserved.

Please see the main L<Froody> documentation for details of who has worked
on this project.

This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.

=cut