File Coverage

blib/lib/Software/Policies.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	1	2	50.0
condition			n/a
subroutine	10	10	100.0
pod	3	3	100.0
total	55	56	98.2

## no critic (ControlStructures::ProhibitPostfixControls)
package Software::Policies;
use strict;
use warnings;
use 5.010;

# ABSTRACT: Create policy files: CODE_OF_CONDUCT, CONTRIBUTING, FUNDING, GOVERNANCE, SECURITY, SUPPORT, etc.

our $VERSION = '0.002';

use Module::Load   qw( load );
use Module::Loader ();

sub new {
    my ($class) = @_;
    my %self;
    return bless \%self, $class;
}

sub list {
    my ($self) = @_;
    return $self->_get_policies();
}

sub create {
    my ( $self, %args ) = @_;
    my $policy = delete $args{'policy'};
    my $module = __PACKAGE__ . q{::} . $policy;
    load $module;
    my $m = $module->new();
    my @r = $m->create(%args);
    return @r;
}

sub _get_policies {
    my ($self) = @_;
    my $loader = Module::Loader->new;
    my %policies;
    my $this_package = __PACKAGE__;
    my @policies     = grep {

        # Filter in only immediate child modules, not sub children.
        m/^ $this_package :: [^:]{1,} $/msx;
    } $loader->find_modules($this_package);
    foreach my $policy_module (@policies) {
        my ($policy) = $policy_module =~ m/.*::([[:word:]]{1,})$/msx;
        $policies{$policy} = { classes => {} } if ( !defined $policies{$policy} );
        $policies{$policy}->{classes} = $self->_get_policy($policy);
    }
    return \%policies;
}

sub _get_policy {
    my ( $self, $policy ) = @_;
    my $policy_module = __PACKAGE__ . q{::} . $policy;
    load $policy_module;
    return $policy_module->get_available_classes_and_versions();
}

1;

__END__