view release on metacpan or  search on metacpan

xt/boilerplate.t  view on Meta::CPAN

use Test2::V1 qw<
    note
    diag
    pass
    fail
>;

use re qw< eval >;
#use DDP output => 'stdout';

sub not_in_file_ok
{
    my $filename = shift;

    note("FILENAME: $filename\n\n");

    open my $fh, '<', $filename or die "Failed to open $filename for reading: $!";
    my $file = do { local $/ = undef; <$fh> };  # Slurp entire file.
    close $fh or die $!;

    my $desc;

xt/boilerplate.t  view on Meta::CPAN

        # End of file.
        if ( $file =~ /\G\z/ ) {
            pass("$filename contains no boilerplate text") unless defined $desc;
            note("\n");

            last;
        }
    }
}

not_in_file_ok('README');
not_in_file_ok('Changes');
not_in_file_ok('lib/App/pod2gfm.pm');

T2->done_testing;