From da0048ce63d3f9ffeddda765652acce635d71834 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Sun, 9 Sep 2018 10:48:44 +0200
Subject: Settings: Use Function::Parameters

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 lib/App/BorgRestore/Settings.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'lib/App/BorgRestore')

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');
 }
 
-- 
cgit v1.2.3-24-g4f1b