kainwinterheart — sub{ my ( $params, $fields ) = ...

kainwinterheart 07.03.2012 15:07 workA4D8271D

sub{
my ( $params, $fields ) = @_;

return 0 if scalar( @{ $fields } ) != scalar( grep{ $_ eq $params → { $_ } } @{ $fields } );

if( $params → { 'keyhash' } )
{
# do some cool shit here
}

return 0;

} → ( { keyhash => 'some md5 shit here' }, [ 'keyhash' ] );

Ke?