diff options
| -rw-r--r-- | lib/App/BorgRestore/Settings.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lib/App/BorgRestore/Settings.pm b/lib/App/BorgRestore/Settings.pm index 0f3803a..8cbbf9c 100644 --- a/lib/App/BorgRestore/Settings.pm +++ b/lib/App/BorgRestore/Settings.pm @@ -6,6 +6,7 @@ use warnings; use App::BorgRestore::Helper; use autodie; +use Function::Parameters; use Sys::Hostname; =encoding utf-8 @@ -154,21 +155,19 @@ if (not defined $cache_path_base) { $cache_path_base = App::BorgRestore::Helper::untaint($cache_path_base, qr/.*/); -sub get_cache_base_dir_path { - my $path = shift; +fun get_cache_base_dir_path($path) { return "$cache_path_base/$path"; } -sub get_cache_dir { +fun get_cache_dir() { return "$cache_path_base/v3"; } -sub get_cache_path { - my $item = shift; +fun get_cache_path($item) { return get_cache_dir()."/$item"; } -sub get_db_path { +fun get_db_path() { return get_cache_path('archives.db'); } |