NAME
    List::Util::Find - List utilities related to finding items

VERSION
    This document describes version 0.005 of List::Util::Find (from Perl
    distribution List-Util-Find), released on 2023-09-16.

SYNOPSIS
     use List::Util::Find qw(hasnum hasstr);

     my @ary = (1,3,"foo",7,2,"bar",10,"baz");

     if (hasnum 3, @ary) {
         ...
     }

     if (hasstr "baz", @ary) {
         ...
     }

DESCRIPTION
    Experimental.

FUNCTIONS
    Not exported by default but exportable.

  hasnum
    Usage:

     hasnum $num, ...

    Like "grep { $_ == $num } ..." except: 1) it short-circuits (exits early
    as soon as an item is found); 2) it makes sure "undef" does not match;
    3) it makes sure non-numeric scalars don't match when $num is zero. It
    is equivalent to something like:

     use List::Util qw(first);
     use Scalar::Util qw(looks_like_number);
     defined(first { defined && looks_like_number($_) && $_ == $num } @list);

    except it does not use any module.

  hasstr
    Usage:

     hasstr $str, ...

    Like "grep { $_ eq $num } ..." except: 1) it short-circuits (exits early
    as soon as an item is found); 2) it makes sure "undef" does not match
    empty string. It is equivalent to something like:

     use List::Util qw(first);
     defined(first { defined && $_ eq $str } @list);

    except it does not use any module.

FAQ
  How about hasundef, hasref, hasarrayref, ...?
    They are trivial enough:

     first { !defined } @list;
     first { ref $_ } @list;
     first { ref $_ eq 'ARRAY' } @list;
     # and so on

HOMEPAGE
    Please visit the project's homepage at
    <https://metacpan.org/release/List-Util-Find>.

SOURCE
    Source repository is at
    <https://github.com/perlancar/perl-List-Util-Find>.

SEE ALSO
    List::Util

AUTHOR
    perlancar <perlancar@cpan.org>

CONTRIBUTING
    To contribute, you can send patches by email/via RT, or send pull
    requests on GitHub.

    Most of the time, you don't need to build the distribution yourself. You
    can simply modify the code, then test via:

     % prove -l

    If you want to build the distribution (e.g. to try to install it locally
    on your system), you can install Dist::Zilla,
    Dist::Zilla::PluginBundle::Author::PERLANCAR,
    Pod::Weaver::PluginBundle::Author::PERLANCAR, and sometimes one or two
    other Dist::Zilla- and/or Pod::Weaver plugins. Any additional steps
    required beyond that are considered a bug and can be reported to me.

COPYRIGHT AND LICENSE
    This software is copyright (c) 2023, 2021 by perlancar
    <perlancar@cpan.org>.

    This is free software; you can redistribute it and/or modify it under
    the same terms as the Perl 5 programming language system itself.

BUGS
    Please report any bugs or feature requests on the bugtracker website
    <https://rt.cpan.org/Public/Dist/Display.html?Name=List-Util-Find>

    When submitting a bug or request, please include a test-file or a patch
    to an existing test-file that illustrates the bug or desired feature.