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

package inc::CheckDelta;
use Moose;

use Path::Class;

with 'Dist::Zilla::Role::BeforeRelease';

sub before_release {
    my $self = shift;

    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
	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;