use List::Util::first to replace some greps

Author: SysPete

lib/Dancer2/Plugin/Auth/Extensible.pm

@@ -6,6 +6,7 @@ use strict;
 use warnings;
 use Carp;
 use Dancer2::Core::Types qw(ArrayRef Bool HashRef Int Str);
+use List::Util qw(first);
 use Module::Runtime qw(use_module);
 use Scalar::Util;
 use Session::Token;
@@ -138,7 +139,7 @@ has realm_count => (
 sub realm {
     my ( $self, $name ) = @_;
     croak "realm name not provided" unless $name;
-    my ($realm) = grep { $_->{name} eq $name } @{ $self->realms };
+    my $realm = first { $_->{name} eq $name } @{ $self->realms };
     return $realm;
 }
 

lib/Dancer2/Plugin/Auth/Extensible/Provider/Config.pm

@@ -1,7 +1,7 @@
 package Dancer2::Plugin::Auth::Extensible::Provider::Config;
 
 use Dancer2::Core::Types qw/ArrayRef/;
-
+use List::Util qw/first/;
 use Moo;
 with "Dancer2::Plugin::Auth::Extensible::Role::Provider";
 use namespace::clean;
@@ -86,7 +86,7 @@ sub authenticate_user {
 # fields defined for users will just get passed through.
 sub get_user_details {
     my ($self, $username) = @_;
-    my ($user) = grep {
+    my $user = first {
         $_->{user} eq $username 
     } @{ $self->users };
     return $user;