X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=lib%2FApp%2FCodeowners%2FFormatter%2FYAML.pm;fp=lib%2FApp%2FCodeowners%2FFormatter%2FYAML.pm;h=8730e19d6d58b8dfd1a6e38a0fd9ac2436c5b726;hb=26eed33eb4aa577d9347e5ebaf577b3e3a2c0396;hp=0000000000000000000000000000000000000000;hpb=f5bbfcbc345874483160d1cf8fb52871ab6a7d85;p=chaz%2Fgit-codeowners

diff --git a/lib/App/Codeowners/Formatter/YAML.pm b/lib/App/Codeowners/Formatter/YAML.pm
new file mode 100644
index 0000000..8730e19
--- /dev/null
+++ b/lib/App/Codeowners/Formatter/YAML.pm
@@ -0,0 +1,30 @@
+package App::Codeowners::Formatter::YAML;
+# ABSTRACT: Format codeowners output as YAML
+
+=head1 DESCRIPTION
+
+This is a L<App::Codeowners::Formatter> that formats output using L<YAML>.
+
+=cut
+
+use warnings;
+use strict;
+
+our $VERSION = '9999.999'; # 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;