Bootstrap using stow

This commit is contained in:
Andrejus
2020-07-12 03:07:01 +01:00
parent 21757767d2
commit b748e73e80
18 changed files with 52 additions and 25 deletions

19
bootstrap.pl Executable file
View File

@@ -0,0 +1,19 @@
#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
use Cwd;
use Stow;
# Stow files
my $dir = getcwd;
my %stow_options = (
dir => "$dir/files",
target => "$ENV{'HOME'}"
);
my $stow = new Stow(%stow_options);
my %conflicts = $stow->get_conflicts;
$stow->process_tasks() unless %conflicts;