Ougi/Task7
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

refactor validate address

Browse source
This commit is contained in:
Ougi 2023-11-10 16:02:26 +03:00
parent 38342df5cf
commit 30b83f9ada
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
TestProject/lib/TestProject.pm
View file

@ -14,7 +14,7 @@ qr((?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*|"(?:[\x01-
sub validate_address { sub validate_address {
my $address = shift; my $address = shift;
if ( $address =~ $regex_for_email ) { if ( $address =~ $regex_for_email ) {
return 1 return (1,'')
} }
return (0,'Invalid message') return (0,'Invalid message')
} }