> MINE: {last MINE if ($x and grep defined,reverse
> @[EMAIL PROTECTED]>{value} ||= []}})}
Deconstruct that some
MINE: { # a loop to let us get out
last if ! $x;
# find the values to use in the slice
my $array = $c_data->{'value'} ||= [];
# take the hash slice
my $slice = @{$x}{ @$array };
# look for defined values of slice in reverse order
foreach my $val (reverse @$slice) {
next if ! defined $val;
last MINE;
}
};
Really, this thing is a noop as it doesn't accomplish anything. Hopefully
this example is a little more understandable.
Paul
/*
PLUG: http://plug.org, #utah on irc.freenode.net
Unsubscribe: http://plug.org/mailman/options/plug
Don't fear the penguin.
*/
