use strict;
use warnings;
use feature 'say';
use Mymoddir::Mymod;
our $VERSION = v0.0.1;
say 'start mymain';
my $answ = Mymoddir::Mymod::mysub('hello');
say "mysub returned: $answ";
####
use strict;
use warnings;
use feature 'say';
package Mymoddir::Mymod;
our $VERSION = v0.0.1;
sub mysub {
say 'mysub got: ', shift;
return 'thanks';
}
####
build_distrib\Mydistro\script\mymain.pl
build_distrib\Mydistro\lib\Mymoddir\Mymod.pm
build_distrib\Build.PL
####
use 5.006;
use strict;
use warnings;
use Module::Build;
my $distro = 'Mydistro'; # Name of Distribution
my $builder = Module::Build->new(
dist_name => "$distro",
dist_version => '0.000_001',
module_name => "$distro/lib/Mymoddir/Mymod",
license => 'perl',
dist_author => q{GUIfriend},
dist_abstract => 'Greetings',
build_requires => {
'Test::More' => 0,
},
requires => {
'perl' => 5.006,
},
add_to_cleanup => [ "$distro-*" ],
create_makefile_pl => 'traditional',
);
####
No 'module_name' was provided and it could not be inferred
from other properties. This will prevent a packlist from
being written for this file. Please set either 'module_name'
or 'dist_version_from' in Build.PL.
####
Build.PL
MANIFEST This list of files
Mydistro/lib/Mymoddir/Mymod.pm
Mydistro/script/mymain.pl
Makefile.PL
META.yml
META.json
####
%tmp%\sudo\inst_mat
####
cd /d %tmp%\sudo\inst_mat\Mydistro-0.000_001
perl Build.PL --destdir ..\..\sudodir verbose=1
Build
Build install
####
%tmp%\sudo\sudodir\strawberry5.14\perl\site\lib\auto\Mydistro\lib\Mymoddir\Mymod\.packlist