Weaken the $metaclass closed over by the meta method.
[gitmo/Moose.git] / 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;