The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Data::Default version 0.11
=========================

NAME
    Data::Default -- Small utility for getting the default value of an
    argument or variable.

SYNOPSIS
     use Data::Default ':all';

     # variables
     my ($var);

     # later...

     if (default $var, 1) {
        # stuff if the $var is undef or set to a true value
     }
     else {
        # stuff if the $var is defined and set to true
     }

DESCRIPTION
    Just a little utility for getting the default value of an argument or
    parameter. All it really does is accept an array of arguments, then
    return the first argument that is defined.

    This function is usually used in a subroutine to get the default value
    of a parameter. A typical usage would be in a subroutine like this:

     sub mysub {
        my (%opts) = @_;

        if (default $opts{'some-option'}, 1) {
            # do stuff some-option was sent and was true or was not sent
        }
        else {
            # do stuff some-option was sent and was false
        }
    }

    You might prefer to use "Attribute::Default" by Stephen Nelson which
    provides similar functionality.

INSTALLATION
    String::Util can be installed with the usual routine:

            perl Makefile.PL
            make
            make test
            make install

TERMS AND CONDITIONS
    Copyright (c) 2010 by Miko O'Sullivan. All rights reserved. This program
    is free software; you can redistribute it and/or modify it under the
    same terms as Perl itself. This software comes with NO WARRANTY of any
    kind.

AUTHORS
    Miko O'Sullivan miko@idocs.com

VERSION
    Version 0.10 November 7, 2010
        Initial release

    Version 0.11 November 8, 2010
        Fixed bug: Exporter was not being loaded.