[gitmo/Moose.git] / inc / CheckDelta.pm

package inc::CheckDelta;
use Moose;

use Path::Class;

with 'Dist::Zilla::Role::AfterBuild';

sub after_build {
    my $self = shift;

    return unless $ENV{DZIL_RELEASING};

    my ($delta) = grep { $_->name eq 'lib/Moose/Manual/Delta.pod' }
                       @{ $self->zilla->files };

    die "Moose::Manual::Delta still contains \$NEXT"
        if $delta->content =~ /\$NEXT/;
}

1;
Commit	Line	Data
903f4ce9	1	package inc::CheckDelta;
	2	use Moose;
	3
	4	use Path::Class;
	5
6fe15b7a	6	with 'Dist::Zilla::Role::AfterBuild';
903f4ce9	7
6fe15b7a	8	sub after_build {
903f4ce9	9	my $self = shift;
903f4ce9	10
32e9a3ed	11	return unless $ENV{DZIL_RELEASING};
32e9a3ed	12
903f4ce9	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;