From f5f6070480e39b6dd9cec498cd65959d119a4c7e Mon Sep 17 00:00:00 2001
From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Wed, 26 Jun 2019 10:53:43 +0200
Subject: [PATCH] perl style like PerlBestPractices

---
 bba.org                 |  9 +++++++--
 templates/default-pl.pl | 45 +++++++++++++++++++++--------------------
 2 files changed, 30 insertions(+), 24 deletions(-)

diff --git a/bba.org b/bba.org
index 4446bdc0..dccca26b 100644
--- a/bba.org
+++ b/bba.org
@@ -2459,8 +2459,13 @@ list who can decrypt a file:
   (fset 'perl-mode 'cperl-mode)
 
   (eval-after-load "cperl-mode"
-    '(add-hook 'cperl-mode-hook (lambda() (cperl-set-style "GNU"))))
-
+    '(progn
+       (add-hook 'cperl-mode-hook (lambda() ((cperl-set-style "K&R"))))
+       (setq cperl-close-paren-offset -4)
+       (setq cperl-continued-statement-offset 4)
+       (setq cperl-indent-level 4)
+       (setq cperl-indent-parens-as-block t)
+       (setq cperl-tab-always-indent t)))
 
 #+END_SRC
 
diff --git a/templates/default-pl.pl b/templates/default-pl.pl
index 4a46ce84..a0903998 100755
--- a/templates/default-pl.pl
+++ b/templates/default-pl.pl
@@ -6,6 +6,29 @@ use Pod::Usage;
 
 my %params;
 
+sub main {
+    my $result = GetOptions (
+	"help|h"           => \\$params{help},
+	"verbose|v"        => \\$params{verbose},
+	"man|m"            => \\$params{man}
+    );
+
+    if ( $params{man} ) {
+	pod2usage( -verbose => 2 );
+    }
+
+    if ( ! ( $params{server} ) || $params{help} ) {
+        pod2usage(1);
+    }
+
+}
+
+main();
+
+1;
+
+__END__
+
 =head1 NAME
 
 `( file-name-nondirectory  (buffer-file-name))` -
@@ -24,26 +47,6 @@ $0
 
 =cut
 
-sub main {
-
-    my $result = GetOptions (
-                             "help|h"           => \\$params{help},
-                             "verbose|v"        => \\$params{verbose},
-                             "man|m"            => \\$params{man}
-                            );
-
-    if ( $params{man} ) { pod2usage( -verbose => 2 ); }
-
-    if ( ! ( $params{server} ) || $params{help} )
-    {
-        pod2usage(1);
-    }
-
-
-}
-
-main();
-
 =head1 AUTHOR
 
 
@@ -55,5 +58,3 @@ This program is free software, you can redistribute it and/or modify
 it under the same terms as Perl itself.
 
 =cut
-
-1;
-- 
2.47.3