package Data::Transpose::Validator::String;
use strict;
use warnings;
use base 'Data::Transpose::Validator::Base';
=head1 NAME
Data::Transpose::Validator::String Validator for strings
=cut
=head2 is_valid
Check with C<ref> if the argument is a string. Return it on success.
=cut
sub is_valid {
my ($self, $string) = @_;
$self->reset_errors;
$self->error(["undefined", "String is undefined"]) unless defined $string;
$self->error(["hash", "Not a string"]) unless (ref($string) eq '');
$self->error ? return 0 : return $string;
}
1;