/usr/share/perl5/File/Share.pm is in libfile-share-perl 0.25-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 | use strict; use warnings;
package File::Share;
our $VERSION = '0.25';
use base 'Exporter';
our @EXPORT_OK = qw[
dist_dir
dist_file
module_dir
module_file
class_dir
class_file
];
our %EXPORT_TAGS = (
all => [ @EXPORT_OK ],
ALL => [ @EXPORT_OK ],
);
use File::ShareDir();
use Cwd qw[abs_path];
use File::Spec();
sub dist_dir {
my ($dist) = @_;
(my $inc = $dist) =~ s!(-|::)!/!g;
$inc .= '.pm';
my $path = $INC{$inc} || '';
$path =~ s/$inc$//;
$path = Cwd::realpath( File::Spec->catfile($path,'..') );
if ($path and
-d "$path/lib" and
-e "$path/share"
) {
return abs_path "$path/share";
}
else {
return File::ShareDir::dist_dir($dist);
}
}
sub dist_file {
my ($dist, $file) = @_;
my $dir = dist_dir($dist);
return File::Spec->catfile( $dir, $file );
}
sub module_dir {
die "File::Share::module_dir not yet supported";
}
sub module_file {
die "File::Share::module_file not yet supported";
}
1;
|