File Coverage

blib/lib/Software/Policies/CodeOfConduct.pm

Criterion	Covered	Total	%
statement	18	27	66.6
branch			n/a
condition	0	2	0.0
subroutine	7	9	77.7
pod	3	3	100.0
total	28	41	68.2

# no critic (ControlStructures::ProhibitPostfixControls)
package Software::Policies::CodeOfConduct;

use strict;
use warnings;
use 5.010;

# ABSTRACT: Create project policy file: Code of Conduct

our $VERSION = '0.002';

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

use Module::Loader ();

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

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

    return \%r;
}

sub get_available_classes_and_versions {
    return {
        'ContributorCovenant' => {
            versions => {
                '1.4' => 1,
                '2.0' => 1,
                '2.1' => 1,
            },
            formats => {
                'markdown' => 1,
            },
        },
    };
}

# sub _filename {
#     my ($format) = @_;
#     my %formats = (
#         'markdown' => 'CODE_OF_CONDUCT.md',
#         'text'     => 'CODE_OF_CONDUCT.txt',
#     );
#     return $formats{$format};
# }

1;

__END__