cpan/Term-Table - Update to version 0.027

0.027     2025-11-14 10:04:51-08:00 America/Los_Angeles

    - No changes from trial

0.026     2025-11-12 20:02:15-08:00 America/Los_Angeles (TRIAL RELEASE)

    - Fix terminal size detection

Author: Chad Granum

MANIFEST

@@ -2325,6 +2325,8 @@ cpan/Term-Table/t/Table.t			Term-Table
 cpan/Term-Table/t/Table/Cell.t			Term-Table
 cpan/Term-Table/t/Table/CellStack.t		Term-Table
 cpan/Term-Table/t/Table/LineBreak.t		Term-Table
+cpan/Term-Table/t/Term-ReadKey.t		Term-Table
+cpan/Term-Table/t/Term-Size-Any.t		Term-Table
 cpan/Test-Harness/bin/prove					The prove harness utility
 cpan/Test-Harness/lib/App/Prove.pm				Gubbins for the prove utility
 cpan/Test-Harness/lib/App/Prove/State.pm			Gubbins for the prove utility

Porting/Maintainers.pl

@@ -1090,8 +1090,8 @@ package Maintainers;
     },
 
     'Term::Table' => {
-        'DISTRIBUTION' => 'EXODIST/Term-Table-0.025.tar.gz',
-        'SYNCINFO'     => 'jkeenan on Sun Aug 31 22:13:35 2025',
+        'DISTRIBUTION' => 'EXODIST/Term-Table-0.027.tar.gz',
+        'SYNCINFO'     => 'jkeenan on Sat Nov 15 21:20:44 2025',
         'FILES'        => q[cpan/Term-Table],
         'EXCLUDED'     => [
             qw( appveyor.yml ),

cpan/Term-Table/lib/Term/Table.pm

@@ -2,7 +2,7 @@ package Term::Table;
 use strict;
 use warnings;
 
-our $VERSION = '0.025';
+our $VERSION = '0.027';
 
 use Term::Table::Cell();
 

cpan/Term-Table/lib/Term/Table/Cell.pm

@@ -2,7 +2,7 @@ package Term::Table::Cell;
 use strict;
 use warnings;
 
-our $VERSION = '0.025';
+our $VERSION = '0.027';
 
 use Term::Table::LineBreak();
 use Term::Table::Util qw/uni_length/;

cpan/Term-Table/lib/Term/Table/CellStack.pm

@@ -2,7 +2,7 @@ package Term::Table::CellStack;
 use strict;
 use warnings;
 
-our $VERSION = '0.025';
+our $VERSION = '0.027';
 
 use Term::Table::HashBase qw/-cells -idx/;
 

cpan/Term-Table/lib/Term/Table/HashBase.pm

@@ -2,7 +2,7 @@ package Term::Table::HashBase;
 use strict;
 use warnings;
 
-our $VERSION = '0.025';
+our $VERSION = '0.027';
 
 #################################################################
 #                                                               #

cpan/Term-Table/lib/Term/Table/LineBreak.pm

@@ -2,7 +2,7 @@ package Term::Table::LineBreak;
 use strict;
 use warnings;
 
-our $VERSION = '0.025';
+our $VERSION = '0.027';
 
 use Carp qw/croak/;
 use Scalar::Util qw/blessed/;

cpan/Term-Table/lib/Term/Table/Spacer.pm

@@ -2,7 +2,7 @@ package Term::Table::Spacer;
 use strict;
 use warnings;
 
-our $VERSION = '0.025';
+our $VERSION = '0.027';
 
 sub new { bless {}, $_[0] }
 

cpan/Term-Table/lib/Term/Table/Util.pm

@@ -2,18 +2,24 @@ package Term::Table::Util;
 use strict;
 use warnings;
 
+use List::Util qw/max/;
 use Config qw/%Config/;
 
-our $VERSION = '0.025';
+our $VERSION = '0.027';
 
 use base 'Exporter';
 our @EXPORT_OK = qw/term_size USE_GCS USE_TERM_READKEY USE_TERM_SIZE_ANY uni_length/;
 
 sub DEFAULT_SIZE() { 80 }
 
-my $IO;
+my @IO;
+my @TIO;
 BEGIN {
-    open($IO, '>&', *STDOUT) or die "Could not clone STDOUT";
+    for my $fh (\*STDOUT, \*STDERR, \*STDIN) {
+        open(my $io, '>&', $fh) or next;
+        push @IO => $io;
+        push @TIO => $io if -t $io;
+    }
 }
 
 sub try(&) {
@@ -28,40 +34,44 @@ my ($tsa) = try { require Term::Size::Any; Term::Size::Any->import('chars') };
 my ($trk) = try { require Term::ReadKey };
 $trk &&= Term::ReadKey->can('GetTerminalSize');
 
-if (!-t $IO) {
-    *USE_TERM_READKEY  = sub() { 0 };
-    *USE_TERM_SIZE_ANY = sub() { 0 };
-    *term_size         = sub {
-        return $ENV{TABLE_TERM_SIZE} if $ENV{TABLE_TERM_SIZE};
-        return DEFAULT_SIZE;
-    };
-}
-elsif ($tsa) {
+if ($tsa) {
     *USE_TERM_READKEY  = sub() { 0 };
     *USE_TERM_SIZE_ANY = sub() { 1 };
     *_term_size        = sub {
-        my $size = chars($IO);
-        return DEFAULT_SIZE if !$size;
-        return DEFAULT_SIZE if $size < DEFAULT_SIZE;
+        my $size = max map { chars($_) // DEFAULT_SIZE } @IO;
+
+        if (!$size || $size < DEFAULT_SIZE) {
+            return $ENV{COLUMNS} if $ENV{COLUMNS} && $ENV{COLUMNS} > DEFAULT_SIZE;
+            return DEFAULT_SIZE;
+        }
+
         return $size;
     };
 }
-elsif ($trk) {
+elsif ($trk && @TIO) {
     *USE_TERM_READKEY  = sub() { 1 };
     *USE_TERM_SIZE_ANY = sub() { 0 };
     *_term_size        = sub {
-        my $total;
+        my @totals;
         try {
             my @warnings;
             {
                 local $SIG{__WARN__} = sub { push @warnings => @_ };
-                ($total) = Term::ReadKey::GetTerminalSize($IO);
+                for my $io (@TIO) {
+                    my ($total) = Term::ReadKey::GetTerminalSize($io);
+                    push @totals => $total;
+                }
             }
             @warnings = grep { $_ !~ m/Unable to get Terminal Size/ } @warnings;
             warn @warnings if @warnings;
         };
-        return DEFAULT_SIZE if !$total;
-        return DEFAULT_SIZE if $total < DEFAULT_SIZE;
+        my $total = @totals ? max(@totals) : 0;
+
+        if (!$total || $total < DEFAULT_SIZE) {
+            return $ENV{COLUMNS} if $ENV{COLUMNS} && $ENV{COLUMNS} > DEFAULT_SIZE;
+            return DEFAULT_SIZE;
+        }
+
         return $total;
     };
 }
@@ -70,6 +80,7 @@ else {
     *USE_TERM_SIZE_ANY = sub() { 0 };
     *term_size         = sub {
         return $ENV{TABLE_TERM_SIZE} if $ENV{TABLE_TERM_SIZE};
+        return $ENV{COLUMNS} if $ENV{COLUMNS} && $ENV{COLUMNS} > DEFAULT_SIZE;
         return DEFAULT_SIZE;
     };
 }

cpan/Term-Table/t/Term-ReadKey.t

@@ -0,0 +1,45 @@
+# HARNESS-NO-PRELOAD
+#
+BEGIN {
+    if (eval { require Test2::Tools::Tiny }) {
+        print "# Using Test2::Tools::Tiny\n";
+        Test2::Tools::Tiny->import();
+    }
+    else {
+        print "1..0 # SKIP Test2::Tools::Tiny is not installed\n";
+        exit(0);
+    }
+
+    if (grep { -t $_ } *STDOUT, *STDERR, *STDIN) {
+        print "# Found usable IO\n";
+    }
+    else {
+        print "1..0 # SKIP No usable IO handles\n";
+        exit(0);
+    }
+
+    if (eval { require Term::ReadKey; Term::ReadKey->can('GetTerminalSize') }) {
+        print "# Using Term::ReadKey\n";
+    }
+    else {
+        print "1..0 # SKIP Term::ReadKey is not installed, or too old\n";
+        exit(0);
+    }
+
+    if (eval { require Devel::Hide }) {
+        Devel::Hide->import('Term::Size::Any');
+    }
+    else {
+        print "1..0 # SKIP Devel::Hide is not installed\n";
+        exit(0);
+    }
+}
+
+use Term::Table::Util qw/USE_TERM_READKEY USE_TERM_SIZE_ANY term_size/;
+
+ok(USE_TERM_READKEY, "Using Term::ReadKey");
+ok(!USE_TERM_SIZE_ANY, "Not using Term::Size::Any");
+
+ok(term_size(), "Got terminal size");
+
+done_testing;