/usr/lib/perl5/Tk/Labelframe.pm is in perl-tk 1:804.031-1build1.
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 | package Tk::Labelframe;
use strict;
use vars qw($VERSION);
$VERSION = '4.003'; # sprintf '4.%03d', q$Revision: #2 $ =~ /#(\d+)/;
# New widget which is a kind of Frame with a label ...
use base qw(Tk::Frame);
Construct Tk::Widget 'Labelframe';
sub Tk_cmd { \&Tk::labelframe }
1;
__END__
|