From 287089e0a4266203ad4282c9f79f90594caac8e2 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Thu, 6 Sep 2018 12:12:39 +0200
Subject: masterkey.pl: Use Function::Parameters

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 masterkey.pl | 19 +++++--------------
 1 file changed, 5 insertions(+), 14 deletions(-)

diff --git a/masterkey.pl b/masterkey.pl
index 13c89d4..861427a 100755
--- a/masterkey.pl
+++ b/masterkey.pl
@@ -6,6 +6,7 @@ use v5.10;
 use Data::Dumper;
 use Email::Date;
 use Email::MessageID;
+use Function::Parameters;
 use Getopt::Long;
 use GnuPG::Interface;
 use JSON;
@@ -108,29 +109,20 @@ on behalf of {$sender_name} ({$sender_key})
 	}
 }
 
-sub save_token {
-	my $id = shift;
-	my $token = shift;
-	my $file = shift;
-
+fun save_token($id, $token, $file) {
 	open my $fh,  '>>', $file or die "Failed to open '$file': $!";
 	say $fh "$id $token";
 	close $fh;
 }
 
-sub fill_template {
-	my $template = shift;
-	my $values = shift;
-
+fun fill_template($template, $values) {
 	my $result = Text::Template::fill_in_string($template, HASH => $values)
 		or die "Failed to fill in template: $Text::Template::ERROR";
 
 	return $result;
 }
 
-sub gpg_get_user {
-	my $key = shift;
-
+fun gpg_get_users($key) {
 	my $gpg = GnuPG::Interface->new();
 	my @keys = $gpg->get_public_keys($key);
 
@@ -205,8 +197,7 @@ sub build_email {
 	);
 }
 
-sub send_email {
-	my $msg = shift;
+fun send_email($msg) {
 	open my $mail, "|msmtp -t";
 	print $mail $msg->as_string;
 	close $mail;
-- 
cgit v1.2.3-24-g4f1b