diff --git a/lib/Pooru/API/V0/Model/Tags.pm b/lib/Pooru/API/V0/Model/Tags.pm index c02b19c..f5bbfdb 100644 --- a/lib/Pooru/API/V0/Model/Tags.pm +++ b/lib/Pooru/API/V0/Model/Tags.pm @@ -31,8 +31,8 @@ sub random_id ($self) sub get ($self, %search) { - croak "Exactly one of 'id' or 'display' must be defined" if - !(defined($search{id}) ^^ defined($search{display})); + croak "Exactly one of 'id' or 'display' must be defined" unless + defined($search{id}) ^^ defined($search{display}); my $key = defined($search{id}) ? "id" : "display"; my $where_clause = where_in($key, $search{$key}->@*);