/usr/lib/perl5/Tk/Photo.pm is in perl-tk 1:804.029-1.1ubuntu2.
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 | package Tk::Photo;
use vars qw($VERSION);
$VERSION = '4.006'; # sprintf '4.%03d', 4+q$Revision: #4 $ =~ /\D(\d+)\s*$/;
use Tk qw($XS_VERSION);
use base qw(Tk::Image);
Construct Tk::Image 'Photo';
sub Tk_image { 'photo' }
Tk::Methods('blank','copy','data','formats','get','put','read',
'redither','transparency','write');
use Tk::Submethods (
'transparency' => [qw/get set/],
);
1;
__END__
|