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.