/usr/share/perl5/Module/Install/Admin/StandardDocuments.pm is in libmodule-package-rdf-perl 0.014-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 | package Module::Install::Admin::StandardDocuments;
use 5.008;
use strict;
no warnings;
BEGIN {
$Module::Install::Admin::StandardDocuments::AUTHORITY = 'cpan:TOBYINK';
$Module::Install::Admin::StandardDocuments::VERSION = '0.014';
};
use base 'Module::Install::Base';
our $AUTHOR_ONLY = 1;
use File::HomeDir;
use IO::All 'io';
sub clone_standard_documents
{
my $self = shift;
foreach ($self->_get_standard_documents)
{
my @file = @{ $self->_copy_standard_document($_) };
$self->clean_files(@file) if @file;
}
1;
}
sub _get_standard_document_library
{
io->catdir(
File::HomeDir->my_home,
'perl5',
'standard-documents',
);
}
sub _get_standard_documents
{
my $io = shift->_get_standard_document_library;
unless ($io->exists)
{
warn "$io does not exist!\n";
return;
}
return $io->All_Files;
}
sub _copy_standard_document
{
my ($self, $doc) = @_;
my $base = $self->_get_standard_document_library;
(my $relative = substr($doc, length $base)) =~ s{^[/\\]}{};
$relative = io->file($relative);
if ($doc->mtime < $relative->mtime)
{
warn "$relative is newer than $doc!\n";
return [];
}
$doc > $relative;
["$relative"];
}
1;
|