From 5b8a11a94c506c0bb8bad2163094686b2710b34f Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Mon, 10 Apr 2017 23:16:49 +0200 Subject: Use Function::Parameters in Helper package Signed-off-by: Florian Pritz --- lib/App/BorgRestore/Helper.pm | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) (limited to 'lib/App/BorgRestore') diff --git a/lib/App/BorgRestore/Helper.pm b/lib/App/BorgRestore/Helper.pm index 8bc4ceb..976ef54 100644 --- a/lib/App/BorgRestore/Helper.pm +++ b/lib/App/BorgRestore/Helper.pm @@ -3,24 +3,19 @@ use v5.10; use strict; use warnings; +use Function::Parameters; use POSIX (); -sub untaint { - my $data = shift; - my $regex = shift; - +fun untaint($data, $regex) { $data =~ m/^($regex)$/ or die "Failed to untaint: $data"; return $1; } -sub untaint_archive_name { - my $archive = shift; +fun untaint_archive_name($archive) { return untaint($archive, qr([a-zA-Z0-9-:+\.]+)); } -sub format_timestamp { - my $timestamp = shift; - +fun format_timestamp($timestamp) { return POSIX::strftime "%a. %F %H:%M:%S %z", localtime $timestamp; } -- cgit v1.2.3-24-g4f1b