Commit 1b098f73 authored by Mike Jones's avatar Mike Jones 🌶

Compatibility with lower Perls

parent e5b92791
Pipeline #59 passed with stage
......@@ -12,6 +12,7 @@ version = 0.002
[@Basic]
[Prereqs]
DateTime = 0
Encode = 0
List::MoreUtils = 0
Mojolicious = 0
......
......@@ -194,9 +194,12 @@ sub _validate {
my $args = shift;
my $required = shift;
my %slice;
# Grab a slice of the keys from given arguments
my %slice = %{$args}{@{$required}};
@slice{@{$required}} = @{$args}{@{$required}};
# Return early, all's well
return { valid => 1 } if all { defined($_) } values %slice;
my @missing;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment