File::Copy::Undoable - Copy file/directory using rsync, with undo support


This document describes version 0.07 of File::Copy::Undoable (from Perl distribution File-Copy-Undoable), released on 2015-08-17.


Why do you use rsync? Why not, say, File::Copy::Recursive?

With rsync, we can continue interrupted transfer. We need this ability for recovery. Also, rsync can handle hardlinks and preservation of ownership, something which File::Copy::Recursive currently does not do. And, being implemented in C, it might be faster when processing large files/trees.





cp(%args) -> [status, msg, result, meta]

{en_US Copy file/directory using rsync, with undo support}.

{en_US On do, will copy source to target (which must not exist beforehand). On undo, will trash target.

Fixed state: source exists and target exists. Content or sizes are not checked; only existence.

Fixable state: source exists and target doesn't exist.

Unfixable state: source does not exist. }

This function is idempotent (repeated invocations with same arguments has the same effect as single invocation). This function supports transactions.

Arguments ('*' denotes required arguments):

  • rsync_opts => array[str] (default: ["-a"])

    {en_US Rsync options}.

    {en_US By default, -a is used. You can add, for example, --delete or other rsync options. }

  • source* => str

  • target* => str

    {en_US Target location}.

    {en_US Note that to avoid ambiguity, you must specify full location instead of just directory name. For example: cp(source=>'/dir', target=>'/a') will copy /dir to /a and cp(source=>'/dir', target=>'/a/dir') will copy /dir to /a/dir. }

  • target_group => str

    {en_US Set group of target}.

    {en_US See target_owner. }

  • target_owner => str

    {en_US Set ownership of target}.

    {en_US If set, will do a chmod -Rh on the target after rsync to set ownership. This usually requires super-user privileges. An example of this is copying files on behalf of user from a source that is inaccessible by the user (e.g. a system backup location). Or, setting up user's home directory when creating a user.

    Will do nothing if not running as super-user. }

Special arguments:

Returns an enveloped result (an array).

First element (status) is an integer containing HTTP status code (200 means OK, 4xx caller error, 5xx function error). Second element (msg) is a string containing error message, or 'OK' if status is 200. Third element (result) is optional, the actual result. Fourth element (meta) is called result metadata and is optional, a hash that contains extra information.

Return value: (any)


Please visit the project's homepage at


Source repository is at


Please report any bugs or feature requests on the bugtracker website

When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.


perlancar <>


This software is copyright (c) 2015 by

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.