NAME Setup::Test - Various simple setup routines for testing VERSION version 0.09 SYNOPSIS use Setup::Unix::Group 'setup_text_case'; # simple usage (doesn't save undo data) my $text = 'foo bar baz'; my $res = setup_text_case text_ref => \$text, case => 'upper'; die unless $res->[0] == 200 || $res->[0] == 304; # perform setup and save undo data (undo data should be serializable) $res = setup_text_case ..., -undo_action => 'do'; die unless $res->[0] == 200 || $res->[0] == 304; my $undo_data = $res->[3]{undo_data}; # perform undo $res = setup_text_case ..., -undo_action => "undo", -undo_data=>$undo_data; die unless $res->[0] == 200 || $res->[0] == 304; DESCRIPTION This module provides simple setup functions, useful for testing purposes. This module uses Log::Any logging framework. This module has Rinci metadata. SEE ALSO Setup AUTHOR Steven Haryanto COPYRIGHT AND LICENSE This software is copyright (c) 2012 by Steven Haryanto. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.