/usr/share/perl5/Term/Size/Any.pm is in libterm-size-any-perl 0.001-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | package Term::Size::Any;
use strict;
use vars qw( $VERSION );
$VERSION = '0.001';
sub _require_any {
my $package;
if ( $^O eq 'MSWin32' ) {
require Term::Size::Win32;
$package = 'Term::Size::Win32';
} else {
#require Best;
#my @modules = qw( Term::Size::Perl Term::Size Term::Size::ReadKey );
#Best->import( @modules );
#$package = Best->which( @modules );
require Term::Size::Perl;
$package = 'Term::Size::Perl';
}
$package->import( qw( chars pixels ) ); # allows Term::Size::Any::chars
return $package;
}
sub import {
my $self = shift;
my $package = _require_any;
unshift @_, $package;
my $import_sub = $package->can('import');
goto &$import_sub;
}
1;
|