collection_first.diff

diff --git a/lib/Mojo/Collection.pm b/lib/Mojo/Collection.pm
index bd4be5f..244e473 100644
--- a/lib/Mojo/Collection.pm
+++ b/lib/Mojo/Collection.pm
@@ -27,10 +27,10 @@ sub each {
 }

 sub first {
-  my ($self, $cb) = (shift, shift);
+  my ($self, $cb, @args) = @_;
   return $self->[0] unless $cb;
   return List::Util::first { $_ =~ $cb } @$self if ref $cb eq 'Regexp';
-  return List::Util::first { $_->$cb(@_) } @$self;
+  return List::Util::first { $_->$cb(@args) } @$self;
 }

 sub flatten { $_[0]->new(_flatten(@{$_[0]})) }

test_list_util.t

use Test::More;
use List::Util;

sub testfirst { List::Util::first { $_ == scalar @_ } @_ }

is testfirst(0,2), 2, 'right result';

done_testing;