File Coverage

blib/lib/Software/Policies/CodeOfConduct/ContributorCovenant.pm

Criterion	Covered	Total	%
statement	14	32	43.7
branch	0	8	0.0
condition	0	6	0.0
subroutine	5	9	55.5
pod	3	3	100.0
total	22	58	37.9

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

use strict;
use warnings;
use 5.010;

# ABSTRACT: Create a policy file: Code of Conduct / Contributor Covenant

our $VERSION = '0.002';

use Carp;
use Software::Policy::CodeOfConduct;

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

sub create {
    my ( $self, %args ) = @_;
    my $version = $args{'version'} // '1.4';
    my $format  = $args{'format'}  // 'markdown';
    my %attributes;
    my $attrs = $args{'attributes'} // {};
    $attributes{'policy'}  = 'Contributor_Covenant_' . $version;
    $attributes{'name'}    = $attrs->{'name'}         if $attrs->{'name'};
    $attributes{'contact'} = $attrs->{'authors'}->[0] if $attrs->{'authors'};
    croak q{Missing attribute 'name'}    if ( !defined $attributes{'name'} );
    croak q{Missing attribute 'contact'} if ( !defined $attributes{'contact'} );

    my $p = Software::Policy::CodeOfConduct->new(

        # policy   => 'Contributor_Covenant_1.4',
        # name     => 'Foo',
        # contact  => '[e-mail]',
        # filename => 'CODE_OF_CONDUCT.md',
        %attributes,
    );

    return (
        policy   => 'CodeOfConduct',
        class    => 'ContributorCovenant',
        version  => $version,
        text     => $p->fulltext . "\n",
        filename => _filename($format),
        format   => $format,
    );
}

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', );
    return $formats{$format};
}
1;

__END__