NAME
Mojo::Util - Portable utility functions
SYNOPSIS
use Mojo::Util qw(b64_encode url_escape url_unescape);
my $string = 'test=23';
my $escaped = url_escape $string;
say url_unescape $escaped;
say b64_encode $escaped, '';
DESCRIPTION
Mojo::Util provides portable utility functions for Mojo.
FUNCTIONS
Mojo::Util implements the following functions.
b64_decode
my $string = b64_decode $b64;
Base64 decode string.
b64_encode
my $b64 = b64_encode $string;
my $b64 = b64_encode $string, "\n";
Base64 encode string, the line ending defaults to a newline.
camelize
my $camelcase = camelize $snakecase;
Convert snake case string to camel case and replace -
with ::
.
# "FooBar"
camelize 'foo_bar';
# "FooBar::Baz"
camelize 'foo_bar-baz';
# "FooBar::Baz"
camelize 'FooBar::Baz';
class_to_file
my $file = class_to_file 'Foo::Bar';
Convert a class name to a file.
Foo::Bar -> foo_bar
FOO::Bar -> foobar
FooBar -> foo_bar
FOOBar -> foobar
class_to_path
my $path = class_to_path 'Foo::Bar';
Convert class name to path.
Foo::Bar -> Foo/Bar.pm
FooBar -> FooBar.pm
decamelize
my $snakecase = decamelize $camelcase;
Convert camel case string to snake case and replace ::
with -
.
# "foo_bar"
decamelize 'FooBar';
# "foo_bar-baz"
decamelize 'FooBar::Baz';
# "foo_bar-baz"
decamelize 'foo_bar-baz';
decode
my $chars = decode 'UTF-8', $bytes;
Decode bytes to characters and return undef
if decoding failed.
deprecated
deprecated 'foo is DEPRECATED in favor of bar';
Warn about deprecated feature from perspective of caller. You can also set the MOJO_FATAL_DEPRECATIONS environment variable to make them die instead.
encode
my $bytes = encode 'UTF-8', $chars;
Encode characters to bytes.
get_line
my $line = get_line \$string;
Extract whole line from string or return undef
. Lines are expected to end with 0x0d 0x0a
or 0x0a
.
hmac_md5_sum
my $checksum = hmac_md5_sum $string, 'passw0rd';
Generate HMAC-MD5 checksum for string.
hmac_sha1_sum
my $checksum = hmac_sha1_sum $string, 'passw0rd';
Generate HMAC-SHA1 checksum for string.
html_unescape
my $string = html_unescape $escaped;
Unescape all HTML entities in string.
md5_bytes
my $checksum = md5_bytes $string;
Generate binary MD5 checksum for string.
md5_sum
my $checksum = md5_sum $string;
Generate MD5 checksum for string.
monkey_patch
monkey_patch $package, foo => sub {...};
monkey_patch $package, foo => sub {...}, bar => sub {...};
Monkey patch functions into package.
monkey_patch 'MyApp',
one => sub { say 'One!' },
two => sub { say 'Two!' },
three => sub { say 'Three!' };
punycode_decode
my $string = punycode_decode $punycode;
Punycode decode string.
punycode_encode
my $punycode = punycode_encode $string;
Punycode encode string.
quote
my $quoted = quote $string;
Quote string.
secure_compare
my $success = secure_compare $string1, $string2;
Constant time comparison algorithm to prevent timing attacks.
sha1_bytes
my $checksum = sha1_bytes $string;
Generate binary SHA1 checksum for string.
sha1_sum
my $checksum = sha1_sum $string;
Generate SHA1 checksum for string.
slurp
my $content = slurp '/etc/passwd';
Read all data at once from file.
spurt
$content = spurt $content, '/etc/passwd';
Write all data at once to file.
squish
my $squished = squish $string;
Trim whitespace characters from both ends of string and then change all consecutive groups of whitespace into one space each.
steady_time
my $time = steady_time;
High resolution time, resilient to time jumps if a monotonic clock is available through Time::HiRes.
trim
my $trimmed = trim $string;
Trim whitespace characters from both ends of string.
unquote
my $string = unquote $quoted;
Unquote string.
url_escape
my $escaped = url_escape $string;
my $escaped = url_escape $string, '^A-Za-z0-9\-._~';
Percent encode unsafe characters in string, the pattern used defaults to ^A-Za-z0-9\-._~
.
url_unescape
my $string = url_unescape $escaped;
Decode percent encoded characters in string.
xml_escape
my $escaped = xml_escape $string;
Escape unsafe characters &
, <
, >
, "
and '
in string.
xor_encode
my $encoded = xor_encode $string, $key;
XOR encode string with variable length key.