Setup::File is a Perl module that provides one function: setup_file.
This module is part of the Setup modules family.
This module uses Log::Any logging framework.
This module's functions have Sub::Spec specs.
SYNOPSIS
use Setup::File 'setup_file';
# simple usage (doesn't save undo data)
my $res = setup_file path => '/etc/rc.local',
should_exist => 1,
gen_content_code => sub { \("#!/bin/sh\n") },
owner => 'root', group => 0,
mode => '+x';
die unless $res->[0] == 200 || $res->[0] == 304;
# perform setup and save undo data (undo data should be serializable)
$res = setup_file ..., -undo_action => 'do';
die unless $res->[0] == 200 || $res->[0] == 304;
my $undo_data = $res->[3]{undo_data};
# perform undo
$res = setup_file ..., -undo_action => "undo", -undo_data=>$undo_data;
die unless $res->[0] == 200 || $res->[0] == 304;
Product's homepage
Requirements:
· Perl