http://www.perlmonks.org?node_id=178028


in reply to Re: How do I write subs that take bare blocks as args?
in thread How do I write subs that take bare blocks as args?

Hey, good idea! Except, to work the same as my example, it needs to be: 

if ( ( grep { $_->price <= 1000 } @product_list  ) == @product_list )
{
    # do stuff
}

[download]

_______________
D a m n D i r t y A p e
Home Node | Email

In Section Seekers of Perl Wisdom