Format test modules

pjcj · Apr 25, 2024 · 06e7623 · 06e7623
1 parent 7b906c3
commit 06e7623
Show file tree

Hide file tree

Showing 7 changed files with 46 additions and 45 deletions.
diff --git a/tests/Accessor_maker.pm b/tests/Accessor_maker.pm
@@ -1,6 +1,7 @@
 package Accessor_maker;
+
 sub import {
   no strict 'refs';
-  *{ caller() . '::' . 'foo' } = sub { $_[0]->{ 'foo' } };
+  *{ caller() . '::' . 'foo' } = sub { $_[0]->{'foo'} };
 }
 1;
diff --git a/tests/Alias1.pm b/tests/Alias1.pm
@@ -12,14 +12,14 @@ use warnings;
 
 use Exporter;
 
-our @ISA = qw(Exporter);
+our @ISA    = qw(Exporter);
 our @EXPORT = qw(is_3digits);
 
 sub is_3digits {
-    my $val = shift;
-    my $retval = undef;
-    $retval=1 if $val =~ /^\d{3}$/;
-    return $retval;
+  my $val    = shift;
+  my $retval = undef;
+  $retval = 1 if $val =~ /^\d{3}$/;
+  return $retval;
 }
 
 1;
diff --git a/tests/Module1.pm b/tests/Module1.pm
@@ -11,23 +11,23 @@ my $y = 7;
 $y++;
 
 sub _aa {
-    $y++;
-    die;
-    die;
+  $y++;
+  die;
+  die;
 }
 
 sub xx {
-    $y++;
-    die;
+  $y++;
+  die;
 }
 
 sub yy {
-    $y++;
+  $y++;
 }
 
 sub zz {
-    my $x = shift;
-    $x++;
+  my $x = shift;
+  $x++;
 }
 
 1

diff --git a/tests/Module2.pm b/tests/Module2.pm
@@ -11,23 +11,23 @@ my $y = 7;
 $y++;
 
 sub _aa {
-    $y++;
-    die;
-    die;
+  $y++;
+  die;
+  die;
 }
 
 sub _xx {
-    $y++;
-    die;
+  $y++;
+  die;
 }
 
 sub yy {
-    $y++;
+  $y++;
 }
 
 sub zz {
-    my $x = shift;
-    $x++;
+  my $x = shift;
+  $x++;
 }
 
 1

diff --git a/tests/Module_import.pm b/tests/Module_import.pm
@@ -8,7 +8,7 @@
 package Module_import;
 
 sub import {
-    print "Module_import\n";
+  print "Module_import\n";
 }
 
 1
diff --git a/tests/dist/DC-Test-Dist/lib/DC/Test/Dist.pm b/tests/dist/DC-Test-Dist/lib/DC/Test/Dist.pm
@@ -15,23 +15,23 @@ use warnings;
 use DC::Test::Dist::M1;
 
 sub new {
-    bless {}, shift
+  bless {}, shift
 }
 
 sub d1 {
-    my $self = shift;
-    if (@_) {
-        $self->{d1} = shift;
-    }
-    $self->{d1}
+  my $self = shift;
+  if (@_) {
+    $self->{d1} = shift;
+  }
+  $self->{d1}
 }
 
 sub d2 {
-    my $self = shift;
-    if (@_) {
-        $self->{d2} = shift;
-    }
-    $self->{d2}
+  my $self = shift;
+  if (@_) {
+    $self->{d2} = shift;
+  }
+  $self->{d2}
 }
 
 1

diff --git a/tests/dist/DC-Test-Dist/lib/DC/Test/Dist/M1.pm b/tests/dist/DC-Test-Dist/lib/DC/Test/Dist/M1.pm
@@ -13,23 +13,23 @@ use warnings;
 # VERSION
 
 sub new {
-    bless {}, shift
+  bless {}, shift
 }
 
 sub m1 {
-    my $self = shift;
-    if (@_) {
-        $self->{m1} = shift;
-    }
-    $self->{m1}
+  my $self = shift;
+  if (@_) {
+    $self->{m1} = shift;
+  }
+  $self->{m1}
 }
 
 sub m2 {
-    my $self = shift;
-    if (@_) {
-        $self->{m2} = shift;
-    }
-    $self->{m2}
+  my $self = shift;
+  if (@_) {
+    $self->{m2} = shift;
+  }
+  $self->{m2}
 }
 
 1