dump configs in all plugins that have one

Author: karenetheridge

Changes

@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+        - more plugins add their config to metadata when [MetaConfig] is used
 
 5.043     2016-01-04 22:54:56-05:00 America/New_York
         - dzil test now supports --extended to set EXTENDED_TESTING (thanks,

corpus/dist/AuthorDeps/dist.ini

@@ -23,3 +23,5 @@ version = 2
 :version = 5.0
 encoding = bytes
 filename = t/data.bin
+
+[MetaConfig]

corpus/dist/AutoPrereqs/dist.ini

@@ -20,3 +20,5 @@ filename = t/data.bin
 
 [Prereqs / DevelopRequires]
 String::Formatter = 0
+
+[MetaConfig]

corpus/dist/DZ-NonAscii/dist.ini

@@ -8,3 +8,4 @@ copyright_holder = ภูมิพลอดุลยเดช
 [@Classic]
 [MetaJSON]
 [NextRelease]
+[MetaConfig]

corpus/dist/DZ1/dist.ini

@@ -5,3 +5,4 @@ license = Perl_5
 copyright_holder = E. Xavier Ample
 
 [@Classic]
+[MetaConfig]

lib/Dist/Zilla/Plugin/AutoPrereqs.pm

@@ -126,8 +126,23 @@ has scanners => (
 has skips => (
   is  => 'ro',
   isa => 'ArrayRef[Str]',
+  default => sub { [] },
 );
 
+around dump_config => sub {
+  my $orig = shift;
+  my $self = shift;
+
+  my $config = $self->$orig;
+
+  $config->{+__PACKAGE__} = {
+    (map { $_ => [ sort @{ $self->$_ } ] } qw(finder test_finder configure_finder extra_scanners skips)),
+    ($self->has_scanners ? (scanners => $self->scanners) : ()),
+  };
+
+  return $config;
+};
+
 sub register_prereqs {
   my $self  = shift;
 

lib/Dist/Zilla/Plugin/AutoVersion.pm

@@ -64,6 +64,19 @@ has format => (
             . q<{{$ENV{DEV} ? (sprintf '_%03u', $ENV{DEV}) : ''}}>
 );
 
+around dump_config => sub {
+  my $orig = shift;
+  my $self = shift;
+
+  my $config = $self->$orig;
+
+  $config->{+__PACKAGE__} = {
+    map { $_ => $self->$_ } qw(major format time_zone),
+  };
+
+  return $config;
+};
+
 sub provide_version {
   my ($self) = @_;
 

lib/Dist/Zilla/Plugin/CPANFile.pm

@@ -37,6 +37,17 @@ sub _hunkify_hunky_hunk_hunks {
   return $str;
 }
 
+around dump_config => sub {
+  my $orig = shift;
+  my $self = shift;
+
+  my $config = $self->$orig;
+
+  $config->{+__PACKAGE__} = { filename => $self->filename };
+
+  return $config;
+};
+
 sub gather_files {
   my ($self, $arg) = @_;
 

lib/Dist/Zilla/Plugin/Encoding.pm

@@ -78,6 +78,20 @@ has ignore => (
   default => sub { [] },
 );
 
+around dump_config => sub {
+  my $orig = shift;
+  my $self = shift;
+
+  my $config = $self->$orig;
+
+  $config->{+__PACKAGE__} = {
+    encoding => $self->encoding,
+    map { $_ => [ sort @{ $self->$_ } ] } qw(filenames matches),
+  };
+
+  return $config;
+};
+
 sub set_file_encodings {
   my ($self) = @_;
 

lib/Dist/Zilla/Plugin/ExecDir.pm

@@ -32,5 +32,17 @@ sub find_files {
 }
 
 with 'Dist::Zilla::Role::ExecFiles';
+
+around dump_config => sub {
+  my $orig = shift;
+  my $self = shift;
+
+  my $config = $self->$orig;
+
+  $config->{+__PACKAGE__} = { dir => $self->dir };
+
+  return $config;
+};
+
 __PACKAGE__->meta->make_immutable;
 1;