/usr/share/perl5/XMLTV/ProgressBar/None.pm is in libxmltv-perl 0.5.67-0.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 | # The lack of a progress bar
package XMLTV::ProgressBar::None;
use strict;
sub new {
my $class = shift;
my $self = {};
my $args = shift;
unless (ref($args)) {
$args = { 'name' => $args };
}
print STDERR $args->{"name"} . "\n";
return bless $self, $class;
}
sub AUTOLOAD {
# Do nothing
}
1;
|