Scalar::Util, List::Util, List::MoreUtils, String::Util & more (via one subroutine)
Perl
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
lib/Util
t
Changes
README
dist.ini

README

NAME
    Util::Utl - Scalar::Util, List::Util, List::MoreUtils, String::Util &
    more (via one subroutine)

VERSION
    version 0.0011

SYNOPSIS
        use Util::Utl;

        utl->first( { ... }, ... )

        if ( utl->blessed( ... ) ) {
        }

        if ( utl->looks_like_number( ... ) ) {
        }

DESCRIPTION
    Util::Utl exports a single subroutine "utl" which provides access to:

    Scalar::Util

    List::Util

    List::MoreUtils

    String::Util

USAGE
    Util::Utl also provides some additional functionality

    Each function here is accessed in the same way:

        utl->$name( ... )

  empty( $value )
    Returns true if $value is undefined or has 0-length

  blank( $value )
    Returns true if $value is undefined or is composed only of whitespace
    (\s)

  first( $code, ... )
    List::Util::first

  first( $hash, @query, $options )
        %hash = ( a => 1, b => 2, c => 3 )
        ... = utl->first( \%hash, qw/ z a b / ) # Returns 1

    For each name in @query, test $hash to see if it exists. Returns the
    value of the first entry found

    Returns undef if none exist

    $options (a HASH reference) are:

        exclusive       True to throw an exception if more than 1 of query is present
                        in $hash

                            %hash = ( a => 1, b => 2, c => 3 )

                            ... = utl->first( \%hash, qw/ a b /, { exclusive => 1 } )
                            # Throws an exception (die)

                            ... = utl->first( \%hash, qw/ a z /, { exclusive => 1 } )
                            # Does not throw an exception 

        test            A subroutine for testing whether a value should be included or not. Can be
                        used to skip over undefined or empty values

                            %hash = ( a => undef, b => '', c => 1 )

                            ... = utl->first( \%hash, qw/ a b c /, { test => sub { defined } } )
                            # Returns ''

        empty           True to return an empty list instead of undef if none are found

                            %hash = ( a => 1 )
                        
                            ... = utl->first( \%hash, qw/ z x y / )
                            # Returns undef

                            ... = utl->first( \%hash, qw/ z x y /, { empty => 1 } )
                            # Returns ()

AUTHOR
    Robert Krimen <robertkrimen@gmail.com>

COPYRIGHT AND LICENSE
    This software is copyright (c) 2011 by Robert Krimen.

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