For::Else - Else blocks for foreach

Version 0.01

	use For::Else;

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

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!

Filter::Simple

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

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

Fur::Elise by Ludwig van Beethoven

Alfie John, alfie at hackfu.org

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.