inc/CheckDelta.pm

   1 package inc::CheckDelta;
   2 use Moose;
   3
   4 use Path::Class;
   5
   6 with 'Dist::Zilla::Role::AfterBuild';
   7
   8 sub after_build {
   9     my $self = shift;
  10
  11     return unless $ENV{DZIL_RELEASING};
  12
  13     my ($delta) = grep { $_->name eq 'lib/Moose/Manual/Delta.pod' }
  14                        @{ $self->zilla->files };
  15
  16     die "Moose::Manual::Delta still contains \$NEXT"
  17         if $delta->content =~ /\$NEXT/;
  18 }
  19
  20 1;