Message::Match - Fast, simple message matching
use Message::Match qw(mmatch); #basic usage mmatch( {a => 'b', c => 'd'}, #message {a => 'b'} #match ); #true mmatch( {a => 'b', c => {x => 'y'}, #message {c => {x => 'y'}} #match ); #true mmatch( {a => 'b', c => 'd'}, #message {x => 'y'} #match ); #false #set membership mmatch( {a => [1,2,3], some => 'thing'}, #message {a => 2}, #match ); #true mmatch( {a => [1,2,3], some => 'thing'}, #message {a => 4}, #match ); #false #array recursion mmatch( {a => [{a => 'b'},2,3], x => 'y'}, #message {a => [{a => 'b'},2,3]}, #match ); #true #regex mmatch( {a => 'forefoot'}, #message {a => ' special/foo/'}, #match ); #true #universal match mmatch( {some => 'random', stuff => 'here'}, #message {}, #match ); #true
This is a very light-weight and fast library that does some basic but reasonably powerful message matching.
Takes two and only two arguments, both HASH references.
Good question; I found some things somewhat similiar to this, but not quite close enough to mention here.
Define handling for other tuples: HASH,scalar scalar,HASH scalar,ARRAY ARRAY,HASH HASH,ARRAY
More special handling.
None known.
Copyright (c) 2012, 2013 Dana M. Diederich. All Rights Reserved.
Dana M. Diederich <diederich@gmail.com>
To install Message::Match, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Message::Match
CPAN shell
perl -MCPAN -e shell install Message::Match
For more information on module installation, please visit the detailed CPAN module installation guide.