Test::Proto::Where use Test::Proto::Where; # exports all symbols by default print test_subject {foo=>'bar'} => where [], sub{ 'Empty array' }, where pHash, sub{ 'A hash' }, otherwise sub { 'Something else' }; Uses Test::Proto and its upgrading feature to implement a dispatch. Note: This module is presently EXPERIMENTAL. INSTALLATION To install this module, run the following commands: perl Makefile.PL make make test make install SUPPORT AND DOCUMENTATION After installing, you can find documentation for this module with the perldoc command. perldoc Test::Proto::Where You can also look for information at: http://github.com/pdl/Test-Proto-Where LICENSE AND COPYRIGHT Copyright (C) 2013 Daniel Perrett This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License. See http://dev.perl.org/licenses/ for more information.