File Coverage

blib/lib/Dist/Zooky/DistIni/Prereqs.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	23	23	100.0

package Dist::Zooky::DistIni::Prereqs;
$Dist::Zooky::DistIni::Prereqs::VERSION = '0.20';
# ABSTRACT: Dist::Zooky DistIni plugin to handle prereqs

use strict;
use warnings;
use Moose;

with 'Dist::Zooky::Role::DistIni';

my $template = q|
{{
      if ( keys %configure ) {
            $OUT .= "[Prereqs / ConfigureRequires]\n";
            $OUT .= join(' = ', $_, $configure{$_}) . "\n" for sort keys %configure;
      }
      else {
            $OUT .= ';[Prereqs / ConfigureRequires]';
      }
}}
{{
      if ( keys %build ) {
            $OUT .= "[Prereqs / BuildRequires]\n";
            $OUT .= join(' = ', $_, $build{$_}) . "\n" for sort keys %build;
      }
      else {
            $OUT .= ';[Prereqs / BuildRequires]';
      }
}}
{{
      if ( keys %runtime ) {
            $OUT .= "[Prereqs]\n";
            $OUT .= join(' = ', $_, $runtime{$_}) . "\n" for sort keys %runtime;
      }
      else {
            $OUT .= ';[Prereqs]';
      }
}}
|;

sub content {
  my $self = shift;
  my %stash;
  $stash{$_} = $self->metadata->{prereqs}->{$_}->{requires}
    for qw(configure build runtime);
  my $content = $self->fill_in_string(
    $template,
    \%stash,
  );
  return $content;
}

__PACKAGE__->meta->make_immutable;
no Moose;

qq[WHAT DO YOU REQUIRE?];

__END__

=pod

=encoding UTF-8

=head1 NAME

Dist::Zooky::DistIni::Prereqs - Dist::Zooky DistIni plugin to handle prereqs

=head1 VERSION

version 0.20

=head1 METHODS

=over

=item C<content>

Returns C<content> for adding to C<dist.ini>.

=back

=head1 AUTHOR

Chris Williams <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Chris Williams.

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