/ 
Scalar-MoreUtils-0.02
River stage zero No dependents
/ Scalar::MoreUtils

NAME

Scalar::MoreUtils - Provide the stuff missing in Scalar::Util

VERSION

Version 0.02

SYNOPSIS

  use Scalar::MoreUtils qw(nil empty define default ifnil ifempty);

  ...

  sub add {
	my $left = default shift, 0;
	my $right = default shift, 0;
	return $left + $right;
  }

  sub greet {
  	return default shift, "This the default greeting!";
  }

DESCRIPTION

Similar to Hsah::MoreUtils and List::MoreUtils, Scalar::MoreUtils contains trivial but commonly-used scalar functionality.

Essentially, provide some pretty trivial functionality that I find useful over and over. The value of this module will probably be blasted away by Perl 5.10.

Suggestions welcome.

nil VALUE

Returns true if VALUE is not defined.

empty VALUE

Returns true if VALUE is not defined or if VALUE is the empty string ("").

define VALUE

Returns VALUE if it is defined, otherwise returns the empty string ("").

default VALUE DEFAULT

Returns VALUE if it is defined, otherwise returns DEFAULT.

This is similar to the "//" in the Perl 5.10 ... well, not really, but kinda.

ifnil VALUE DEFAULT

Returns VALUE if it is not nil, otherwise returns DEFAULT.

Read "ifnil(A,B)" as "ifnil A, then B, otherwise A"

ifnil behaves exactly the same as default.

ifempty VALUE DEFAULT

Returns VALUE if it is not empty, otherwise returns DEFAULT.

Read "ifempty(A,B)" as "ifempty A, then B, otherwise A"

AUTHOR

Robert Krimen, <rkrimen at cpan.org>

BUGS

Please report any bugs or feature requests to bug-scalar-moreutils at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Scalar-MoreUtils. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Scalar::MoreUtils

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2007 Robert Krimen, all rights reserved.

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