Add print_by_row method.

Author: Stefan Suciu

lib/App/PlannedCopy/Ls.pm

@@ -119,19 +119,23 @@ sub column_printer {
         }
     }
 
-    # Print by row
-    my $col_idx = $self->column_count - 1;
-    my $row_idx = scalar @{$items_in_cols->[0]} - 1;
+    $self->print_by_row($items_in_cols);
+
+    return;
+}
 
-    my $templ = $self->build_printf_template($items_in_cols, $col_idx);
+sub print_by_row {
+    my ( $self, $items_in_cols ) = @_;
+    my $col_idx = $self->column_count - 1;
+    my $row_idx = scalar @{ $items_in_cols->[0] } - 1;
+    my $templ   = $self->build_printf_template( $items_in_cols, $col_idx );
     for my $r ( 0 .. $row_idx ) {
         my @row = ();
         for my $c ( 0 .. $col_idx ) {
             push @row, $items_in_cols->[$c][$r] // '';
         }
         printf "$templ\n", @row;
     }
-
     return;
 }