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:
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.