feat: add app utils

lib/Urupam/Utils.pm

@@ -0,0 +1,38 @@
+package Urupam::Utils;
+
+use Mojo::Base -base;
+use Mojo::Util qw(url_unescape);
+
+sub sanitize_input {
+    my ($input) = @_;
+    return '' unless defined $input;
+    $input =~ s/^\s+|\s+$//g;
+    return $input;
+}
+
+sub get_error_status {
+    my ($err) = @_;
+    return $err =~ /SSL certificate|Cannot reach|DNS resolution|server error/i ? 422 : 400;
+}
+
+sub sanitize_url {
+    my ($url) = @_;
+    return undef unless defined $url;
+
+    $url =~ s/^\s+|\s+$//g;
+    return undef if length($url) == 0;
+
+    if ( $url =~ /%[0-9a-f]{2}/i ) {
+        $url = url_unescape($url);
+    }
+
+    unless ( $url =~ m{^https?://}i ) {
+        return undef if $url =~ /[\@:]/;
+        $url = 'http://' . $url;
+    }
+
+    return $url;
+}
+
+1;
+