inc/CheckDelta.pm

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