view release on metacpan or  search on metacpan

t/50-sanity.t  view on Meta::CPAN

    # for some reason, PPI happily attempts to parse this file
    $grepl = App::Grepl->new(
        {
            files    => 't/lib/ruby.rb',
            warnings => 1
        }
    );
    SKIP: {
        skip $SKIP_REASON, 1 unless $can_capture_output;
        stderr_is(
            sub { $grepl->search },
            "Cannot create a PPI document for (t/lib/ruby.rb).  Skipping.\n",
            'We should be able to warn if we cannot create a PPI doc'
        );
    }
}

# new block so that PPI::Document->new is restored
$grepl = App::Grepl->new(
    {