NAME

For::Else - Else blocks for foreach

VERSION

Version 0.01

SYNOPSIS

use For::Else;

foreach my $item ( @items )
{
	_do_something_with_item();
}
else
{
	die "@items was empty";
}

DESCRIPTION

We usually iterate over a list like the following:

foreach my $item ( @items )
{
	_do_something_with_item();
}

However, a lot of the time I find myself needing to accomodate for the exceptional case where the list is empty:

if ( @items )
{
	foreach my $item ( @items )
	{
		_do_something_with_item();
	}
}
else
{
	die "@items was empty";
}

Since we don't enter into a foreach block when there are no items in the list anyway, I find the if to be rather redundant. Wouldn't it be nice to get rid of it so we can do the following?

foreach my $item ( @items )
{
	_do_something_with_item();
}
else
{
	die "@items was empty";
}

Now you can!

DEPENDENCIES

Filter::Simple

BUGS / FEATURES

Note: Does not interpolate void-contextual expressions yet e.g. ranges, qw{}, etc.

Please report any bugs or features. Better yet, submit a patch :)

SEE ALSO

Fur::Elise by Ludwig van Beethoven

AUTHOR

Alfie John, alfie at hackfu.org

COPYRIGHT AND LICENCE

Copyright (C) 2006 by Alfie John

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