File Coverage

blib/lib/Software/Policies/Contributing/PerlDistZilla.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	1	2	50.0
condition	4	4	100.0
subroutine	8	9	88.8
pod	1	3	33.3
total	42	47	89.3

package Software::Policies::Contributing::PerlDistZilla;

use strict;
use warnings;
use 5.010;

# ABSTRACT: Create project policy file: Contributing / PerlDistZilla

our $VERSION = '0.002';

use Carp;
use Data::Section -setup;

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

sub create {
    my ( $self, %args ) = @_;
    my $version = $args{'version'} // '1';
    my $format  = $args{'format'}  // 'markdown';

    my ($data_section)     = __PACKAGE__ =~ m/.+::([^:]+)$/msx;
    my $data_section_label = $data_section . q{_v} . $version . q{_} . $format;
    my $data               = $self->section_data($data_section_label);
    croak "Cannot find data section $data_section_label"
      if ( !$data );
    return (
        policy   => 'Contributing',
        class    => 'PerlDistZilla',
        version  => $version,
        text     => ${$data},
        filename => _filename($format),
        format   => $format,
    );
}

sub get_available_classes_and_versions {
    return {
        'Perl::Dist::Zilla' => {
            versions => {
                '1' => 1,
            },
            formats => {
                'markdown' => 1,
                'text'     => 1,
            },
        },
    };
}

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

1;

=pod

=encoding UTF-8

=head1 NAME

Software::Policies::Contributing::PerlDistZilla - Create project policy file: Contributing / PerlDistZilla

=head1 VERSION

version 0.002

=for Pod::Coverage new create get_available_classes_and_versions

=begin stopwords




=end stopwords

=head1 METHODS

=head2 new

=head1 AUTHOR

Mikko Koivunalho

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2025 by Mikko Koivunalho.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__DATA__