File Coverage

lib/Pod/PseudoPod/Book/Command/buildcredits.pm

Criterion	Covered	Total	%
statement	15	39	38.4
branch	0	6	0.0
condition	0	2	0.0
subroutine	5	6	83.3
pod	1	1	100.0
total	21	54	38.8

package Pod::PseudoPod::Book::Command::buildcredits;
# ABSTRACT: command module for C<ppbook buildcredits>

use strict;
use warnings;

use parent 'Pod::PseudoPod::Book::Command';

use autodie;
use File::Spec::Functions 'catfile';

sub execute
{
    my ($self, $opt, $args) = @_;
    my $conf                = $self->config;
    return unless $conf->{book}{build_credits};

    my $author_name         = $opt->{author_name}
                           || $conf->{book}{author_name}
                           || '';

    open my $fh, '<:utf8', 'CREDITS';
    my @names;

    while (<$fh>)
    {
        next unless /^N: (.+)$/;
        next if $1 eq $author_name;
        push @names, $1;
    }

    my @sorted = map  { local $" = ' '; "@$_" }
                 sort { $a->[-1] cmp $b->[-1] }
                 map  { [ (split / /, $_) ] }
                 @names;

    my $last = pop @sorted;
    my $dir  = $conf->{layout}{subchapter_directory};

    open my $out_fh, '>:utf8', catfile( $dir, 'credits.pod' );
    print {$out_fh} "Z<credits>\n";

    print {$out_fh} "$_,\n" for @sorted;
    print {$out_fh} "and $last.\n";
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Pod::PseudoPod::Book::Command::buildcredits - command module for C<ppbook buildcredits>

=head1 VERSION

version 1.20210620.2051

=head1 AUTHOR

chromatic <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by chromatic.

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