<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">NAME
    Setup::Test - Various simple setup routines for testing

VERSION
    version 0.10

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 =&gt; \$text, case =&gt; 'upper';
     die unless $res-&gt;[0] == 200 || $res-&gt;[0] == 304;

     # perform setup and save undo data (undo data should be serializable)
     $res = setup_text_case ..., -undo_action =&gt; 'do';
     die unless $res-&gt;[0] == 200 || $res-&gt;[0] == 304;
     my $undo_data = $res-&gt;[3]{undo_data};

     # perform undo
     $res = setup_text_case ..., -undo_action =&gt; "undo", -undo_data=&gt;$undo_data;
     die unless $res-&gt;[0] == 200 || $res-&gt;[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 &lt;stevenharyanto@gmail.com&gt;

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.

</pre></body></html>