Perltidy addition

.perltidyrc

@@ -5,3 +5,4 @@
 --novalign-side-comments
 --freeze-newlines
 --keep-old-breakpoints-after='('
+--nowant-right-space='A'

exercises/practice/binary-search-tree/.meta/solutions/lib/BinarySearchTree.pm

@@ -5,7 +5,7 @@ use Feature::Compat::Class;
 
 class BinarySearchTree;
 
-field $root : param;
+field $root :param;
 
 method add ($data) {
     $root->set($data);
@@ -31,9 +31,9 @@ method sort () {
 }
 
 class BinarySearchTree::Node {
-    field $data : reader : param;
-    field $left : reader;
-    field $right : reader;
+    field $data :reader :param;
+    field $left :reader;
+    field $right :reader;
 
     method set ($new_data) {
         if ( $new_data > $data ) {

exercises/practice/binary-search-tree/lib/BinarySearchTree.pm

@@ -3,7 +3,7 @@ use experimental qw<class>;
 
 class BinarySearchTree;
 
-field $root : param;
+field $root :param;
 
 method add () {
 
@@ -15,9 +15,9 @@ method sort () {
 }
 
 class BinarySearchTree::Node {
-    field $data : reader : param;
-    field $left : reader;
-    field $right : reader;
+    field $data :reader :param;
+    field $left :reader;
+    field $right :reader;
 }
 
 1;

exercises/practice/clock/.meta/solutions/lib/Clock.pm

@@ -7,8 +7,8 @@ class Clock;
 
 use POSIX qw<floor>;
 
-field $hour : reader : param   = 0;
-field $minute : reader : param = 0;
+field $hour :reader :param   = 0;
+field $minute :reader :param = 0;
 
 method time () {
     return sprintf '%02d:%02d', $hour, $minute;

exercises/practice/clock/lib/Clock.pm

@@ -3,8 +3,8 @@ use experimental qw<class>;
 
 class Clock;
 
-field $hour : reader : param;
-field $minute : reader : param;
+field $hour :reader :param;
+field $minute :reader :param;
 
 method time () {
     return undef;

exercises/practice/custom-set/.meta/solutions/lib/CustomSet.pm

@@ -5,8 +5,8 @@ use Feature::Compat::Class;
 
 class CustomSet;
 
-field $elements : param = [];
-field $set : reader(elements) = {};
+field $elements :param = [];
+field $set :reader(elements) = {};
 
 ADJUST {
     $set = { map { $_ => 1 } $elements->@* }

exercises/practice/custom-set/lib/CustomSet.pm

@@ -3,7 +3,7 @@ use experimental qw<class>;
 
 class CustomSet;
 
-field $elements : reader : param;
+field $elements :reader :param;
 
 method is_empty () {
     return undef;

exercises/practice/queen-attack/.meta/solutions/lib/Queen.pm

@@ -5,8 +5,8 @@ use Feature::Compat::Class;
 
 class Queen;
 
-field $row : reader : param;
-field $column : reader : param;
+field $row :reader :param;
+field $column :reader :param;
 
 ADJUST {
     die 'row not on board'    if $row < 0    || $row > 7;

exercises/practice/queen-attack/lib/Queen.pm

@@ -3,8 +3,8 @@ use experimental qw<class>;
 
 class Queen;
 
-field $row : reader : param;
-field $column : reader : param;
+field $row :reader :param;
+field $column :reader :param;
 
 method can_attack ($other) {
     return undef;

exercises/practice/robot-name/.meta/solutions/lib/RobotName.pm

@@ -5,7 +5,7 @@ use Feature::Compat::Class;
 
 class RobotName;
 
-field $name : reader;
+field $name :reader;
 
 ADJUST {
     $name = $self->reset_name();

exercises/practice/robot-name/lib/RobotName.pm

@@ -3,7 +3,7 @@ use experimental qw<class>;
 
 class RobotName;
 
-field $name : reader;
+field $name :reader;
 
 method reset_name () {
     return undef;

exercises/practice/robot-simulator/.meta/solutions/lib/Robot.pm

@@ -5,9 +5,9 @@ use Feature::Compat::Class;
 
 class Robot;
 
-field $x : reader param;
-field $y : reader param;
-field $direction : reader param;
+field $x :reader :param;
+field $y :reader :param;
+field $direction :reader :param;
 
 method enact ($instructions) {
     for my $step ( split //, $instructions ) {

exercises/practice/robot-simulator/.meta/template-data.yaml

@@ -14,9 +14,9 @@ properties:
       END
 
 example: |-
-  field $x :reader param;
-  field $y :reader param;
-  field $direction :reader param;
+  field $x :reader :param;
+  field $y :reader :param;
+  field $direction :reader :param;
 
   method enact ($instructions) {
       for my $step (split //, $instructions) {
@@ -68,9 +68,9 @@ example: |-
   }
 
 stub: |-
-  field $x :reader param;
-  field $y :reader param;
-  field $direction :reader param;
+  field $x :reader :param;
+  field $y :reader :param;
+  field $direction :reader :param;
 
   method enact ($instructions) {
       return $self;

exercises/practice/robot-simulator/lib/Robot.pm

@@ -3,9 +3,9 @@ use experimental qw<class>;
 
 class Robot;
 
-field $x : reader param;
-field $y : reader param;
-field $direction : reader param;
+field $x :reader :param;
+field $y :reader :param;
+field $direction :reader :param;
 
 method enact ($instructions) {
     return $self;

exercises/practice/simple-cipher/.meta/solutions/lib/SimpleCipher.pm

@@ -5,7 +5,7 @@ use Feature::Compat::Class;
 
 class SimpleCipher;
 
-field $key : reader : param = join '', map { ( 'a' .. 'z' )[ rand 26 ] } 1 .. 100;
+field $key :reader :param = join '', map { ( 'a' .. 'z' )[ rand 26 ] } 1 .. 100;
 
 method encode ($plaintext) {
     my $key_length = length $key;

exercises/practice/simple-cipher/lib/SimpleCipher.pm

@@ -3,7 +3,7 @@ use experimental qw<class>;
 
 class SimpleCipher;
 
-field $key : reader : param = '';
+field $key :reader :param = '';
 
 method encode ($plaintext) {
     return undef;