/usr/share/perl5/Dist/Inkt/Role/CopyStandardDocuments.pm is in libdist-inkt-perl 0.023-2.
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 | package Dist::Inkt::Role::CopyStandardDocuments;
our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION = '0.023';
use Moose::Role;
use Types::Path::Tiny -types;
use Path::Tiny 'path';
use namespace::autoclean;
has standard_documents_dir => (
is => 'ro',
isa => AbsPath,
coerce => 1,
lazy => 1,
builder => '_build_standard_documents_dir',
);
sub _build_standard_documents_dir
{
return path('~/perl5/standard-documents');
}
after BUILD => sub {
my $self = shift;
unshift @{ $self->targets }, 'StandardDocuments';
};
sub Build_StandardDocuments
{
my $self = shift;
my $src = $self->standard_documents_dir;
$src->exists or return;
$src->is_dir or return;
my $dest = $self->targetdir;
for ($src->children)
{
my $file = path($_);
$file->is_file or next;
my $relative = $file->relative($src);
my $destfile = $relative->absolute($dest);
$self->log("Copying $file");
$file->copy($destfile);
}
}
1;
|