File Coverage

script/dist-policyfiles

Criterion	Covered	Total	%
statement	30	32	93.7
branch	5	10	50.0
condition	1	2	50.0
subroutine	6	6	100.0
pod			n/a
total	42	50	84.0

#!/usr/bin/env perl
use 5.014;
use strict;
use warnings;

use Pod::Usage;

use Getopt::Long;

use Dist::PolicyFiles;

my @OptDef = qw(login|l=s
                module|m=s

                contrib_md_tmpl|c=s
                dir|d=s
                email|e=s
                full_name|n=s
                prefix|p=s
                sec_md_params|s=s
                uncapitalize|u

                help|h
                version|V
              );
my %Opts;
GetOptions(\%Opts, @OptDef) or pod2usage;

pod2usage(-verbose => 2, -exitval => 0) if $Opts{help};
if ($Opts{version}) {
  print("dist-policyfiles (Dist::PolicyFiles) $Dist::PolicyFiles::VERSION\n");
  exit 0;
}

my %SecArgs = map {split(/\s*=\s*/, $_, 2)} split(/\s*;\s*/, delete($Opts{sec_md_params}) // "");
my $contrib_md_tmpl = delete($Opts{contrib_md_tmpl});

pod2usage(-message => 'Missing module: --module') if !exists($Opts{module});
pod2usage(-message => 'Missing login name: --login') if !exists($Opts{login}); # pod2usage


my $Pf_Obj = Dist::PolicyFiles->new(%Opts);
$Pf_Obj->create_security_md(%SecArgs);
$Pf_Obj->create_contrib_md($contrib_md_tmpl);


1;


__END__