/usr/share/perl5/XMLTV/Ask.pm is in libxmltv-perl 0.5.70-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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | # A few routines for asking the user questions. Used in --configure
# and also by Makefile.PL, so this file should not depend on any
# nonstandard libraries.
#
# $Id: Ask.pm,v 1.18 2015/07/12 04:50:46 knowledgejunkie Exp $
#
package XMLTV::Ask;
use strict;
use XMLTV::GUI;
use XMLTV::ProgressBar;
use vars qw(@ISA @EXPORT);
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(ask
ask_password
ask_choice
ask_boolean
ask_many_boolean
say
);
# Use Log::TraceMessages if installed.
BEGIN {
eval { require Log::TraceMessages };
if ($@) {
*t = sub {};
*d = sub { '' };
}
else {
*t = \&Log::TraceMessages::t;
*d = \&Log::TraceMessages::d;
}
}
my $real_class = 'XMLTV::Ask::Term';
sub AUTOLOAD {
use vars qw($AUTOLOAD);
(my $method_name = $AUTOLOAD) =~ s/.*::(.*?)/$1/;
(my $real_class_path = $real_class.".pm") =~ s/::/\//g;
require $real_class_path;
import $real_class_path;
$real_class->$method_name(@_);
}
# Must be called before we use this module if we want to use a gui.
sub init( $ ) {
my $opt_gui = shift;
# Ask the XMLTV::GUI module for the graphics type we will use
my $gui_type = XMLTV::GUI::get_gui_type($opt_gui);
if ($gui_type =~ /^term/) {
$real_class = 'XMLTV::Ask::Term';
} elsif ($gui_type eq 'tk') {
$real_class = 'XMLTV::Ask::Tk';
} else {
die "Unknown gui type: '$gui_type'.";
}
# Initialise the ProgressBar module
XMLTV::ProgressBar::init($opt_gui);
}
1;
|