view release on metacpan or  search on metacpan

xt/snippets/test_snippets.t  view on Meta::CPAN

                my $code       = '';
                my $test_count = 1;
                my $expected;
                my $expected_nothing;
                my $skip;

                while (<$fh>) {
                    if ($flag) {
                        if (/^END$/) {
                            my $tmp = File::Temp->new(DIR => "$FindBin::Bin/local", UNLINK => 0);
                            print $tmp "use feature ':all';\n" unless $basename eq 'minimum_version';
                            print $tmp "$code\n;\n1;";
                            my $filename = $tmp->filename;
                            close $tmp;
                            note "TEST CODE:" . "-" x 30 . "\n$code\n" . "-" x 40 . "\n\n";
                            my $result = `$^X -I$local/$basename/lib/perl5 -c $filename 2>&1`;
                        SKIP: {
                                skip $skip, 1 if $skip;
                                if ($expected_nothing) {
                                    ok !$result, "$file: expected nothing" or note "RESULT: $result";
                                } elsif ($expected) {