perl style like PerlBestPractices

diff --git a/bba.org b/bba.org
index 4446bdc08c23b785f5fb7e838ac8fa661ed7a5db..dccca26b9ec21faacfeba9def0ed036efcae08a2 100644 (file)
--- 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 4a46ce8484c9be4bf8a61281086730e1a594dcd7..a090399811534b86a556fd630a700f6879e599e5 100755 (executable)
--- 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;