make milla perltidy

mishin · Apr 8, 2015 · 8e124da · 8e124da
1 parent a0527e1
commit 8e124da
Show file tree

Hide file tree

Showing 25 changed files with 37 additions and 11 deletions.
diff --git a/lib/POD2/RU.pm b/lib/POD2/RU.pm
@@ -8,7 +8,6 @@ use base 'Exporter';
 use base 'POD2::Base';
 use IO::Interactive qw(is_interactive);
 use Encode::Locale qw(decode_argv);
-
 
 use 5.008_005;
 our $VERSION = '5.18.0.1.53';

diff --git a/lib/POD2/RU/a2p.pod b/lib/POD2/RU/a2p.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perl.pod b/lib/POD2/RU/perl.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlbook.pod b/lib/POD2/RU/perlbook.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlcheat.pod b/lib/POD2/RU/perlcheat.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perldoc.pod b/lib/POD2/RU/perldoc.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlintro.pod b/lib/POD2/RU/perlintro.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlnewmod.pod b/lib/POD2/RU/perlnewmod.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlpragma.pod b/lib/POD2/RU/perlpragma.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlre.pod b/lib/POD2/RU/perlre.pod
@@ -1,3 +1,4 @@
+
 =encoding UTF-8
 
 =head1 НАЗВАНИЕ

diff --git a/lib/POD2/RU/perlreapi.pod b/lib/POD2/RU/perlreapi.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlrebackslash.pod b/lib/POD2/RU/perlrebackslash.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlrecharclass.pod b/lib/POD2/RU/perlrecharclass.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlreguts.pod b/lib/POD2/RU/perlreguts.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlrequick.pod b/lib/POD2/RU/perlrequick.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlreref.pod b/lib/POD2/RU/perlreref.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlretut.pod b/lib/POD2/RU/perlretut.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlrun.pod b/lib/POD2/RU/perlrun.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlsecret.pod b/lib/POD2/RU/perlsecret.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlstyle.pod b/lib/POD2/RU/perlstyle.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/lib/POD2/RU/perlunicode.pod b/lib/POD2/RU/perlunicode.pod
@@ -1,3 +1,4 @@
+
 =encoding utf8
 
 =head1 НАИМЕНОВАНИЕ

diff --git a/t/001_basic/03_prepare_encoding_console.t b/t/001_basic/03_prepare_encoding_console.t
@@ -11,13 +11,13 @@ $pod2->prepare_encoding_console();
 
 # Test utf8 is ok.
 {
-my $uni = "\x{11e}";
-     
+    my $uni = "\x{11e}";
+
     my @warnings;
     local $SIG{__WARN__} = sub {
         push @warnings, @_;
     };
- 
+
     is( $uni, $uni, "Testing $uni" );
     is_deeply( \@warnings, [] );
 }
diff --git a/t/001_basic/04_print_pod.t b/t/001_basic/04_print_pod.t
@@ -8,12 +8,15 @@ use POD2::RU;
 #########################
 my $pod2 = POD2::RU->new();
 use Test::Output;
+
 #$pod2->prepare_encoding_console();
 
 sub writer {
-	$pod2->print_pod('perlretut');
+    $pod2->print_pod('perlretut');
 }
 
-stdout_isnt( \&writer,
+stdout_isnt(
+    \&writer,
     qq{\t'perlretut' переведен на русский Perl 5.18.0.1\n},
-    'Test STDOUT of print_pod' );
+    'Test STDOUT of print_pod'
+);
diff --git a/t/001_basic/05_print_pods.t b/t/001_basic/05_print_pods.t
@@ -11,11 +11,12 @@ use Test::Output;
 $pod2->prepare_encoding_console();
 
 sub writer {
-	$pod2->print_pods;#('perlretut');
+    $pod2->print_pods;    #('perlretut');
 }
 
 #stdout_isnt
-stdout_isnt( \&writer,
+stdout_isnt(
+    \&writer,
     qq{\t'a2p' переведен на русский Perl 5.18.0.1
 \t'perl' переведен на русский Perl 5.18.0.1
 \t'perlbook' переведен на русский Perl 5.18.0.1
@@ -37,6 +38,7 @@ stdout_isnt( \&writer,
 \t'perlstyle' переведен на русский Perl 5.18.0.1
 \t'perlunicode' переведен на русский Perl 5.18.0.1
 },
-    'Test STDOUT of print_pod' );
+    'Test STDOUT of print_pod'
+);
 
 #&writer();
diff --git a/xt/podspell.t b/xt/podspell.t
@@ -2,7 +2,9 @@ use Test::More;
 eval q{ use Test::Spelling };
 plan skip_all => "Test::Spelling is not installed." if $@;
 add_stopwords(<DATA>);
-set_spell_cmd("sp_ch () {(cat $1|aspell --lang=ru-yo list|aspell --lang=en list); };sp_ch");
+set_spell_cmd(
+    "sp_ch () {(cat $1|aspell --lang=ru-yo list|aspell --lang=en list); };sp_ch"
+);
 all_pod_files_spelling_ok('lib');
 __DATA__
 Baranov