package App::Codeowners::Formatter::YAML; # ABSTRACT: Format codeowners output as YAML use warnings; use strict; our $VERSION = '0.42'; # VERSION use parent 'App::Codeowners::Formatter'; use App::Codeowners::Util qw(zip); sub finish { my $self = shift; my $results = shift; eval { require YAML } or die "Missing dependency: YAML\n"; my $columns = $self->columns; $results = [map { +{zip @$columns, @$_} } @$results]; print { $self->handle } YAML::Dump($results); } 1; __END__ =pod =encoding UTF-8 =head1 NAME App::Codeowners::Formatter::YAML - Format codeowners output as YAML =head1 VERSION version 0.42 =head1 DESCRIPTION This is a L that formats output using L. =head1 BUGS Please report any bugs or feature requests on the bugtracker website L When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. =head1 AUTHOR Charles McGarvey =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2019 by Charles McGarvey. 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