dist/base/lib/fields.pm Set up object field names for pseudo-hash-using classes
dist/base/MANIFEST base.pm manifest
dist/base/META.yml base.pm META.yml file
+dist/base/t/base-open-chunk.t See if base works
+dist/base/t/base-open-line.t See if base works
dist/base/t/base.t See if base works
dist/base/t/compile-time.t See if base works
dist/base/t/fields-5_6_0.t See if fields work
# probably be using parent.pm, which doesn't try to
# guess whether require is needed or failed,
# see [perl #118561]
- die if $@ && $@ !~ /^Can't locate \Q$fn\E .*? at \Q$file\E line \Q$line\E\.\n\z/s
- || $@ =~ /Compilation failed in require at \Q$file\E line \Q$line\E\.\n\z/;
+ die if $@ && $@ !~ /^Can't locate \Q$fn\E .*? at \Q$file\E line \Q$line\E(?:, <[^>]*> (?:line|chunk) [0-9]+)?\.\n\z/s
+ || $@ =~ /Compilation failed in require at \Q$file\E line \Q$line\E(?:, <[^>]*> (?:line|chunk) [0-9]+)?\.\n\z/;
unless (%{"$base\::"}) {
require Carp;
local $" = " ";
--- /dev/null
+#!/usr/bin/perl -w
+
+my $file = __FILE__;
+
+open my $fh, '<', $file or die "Can't open $file: $!";
+$/ = \1;
+<$fh>;
+(my $test_file = $file) =~ s/-open-chunk//;
+
+unless (my $return = do $test_file) {
+ warn "couldn't parse $test_file: $@" if $@;
+ warn "couldn't do $test_file: $!" unless defined $return;
+ warn "couldn't run $test_file" unless $return;
+}
--- /dev/null
+#!/usr/bin/perl -w
+
+my $file = __FILE__;
+open my $fh, '<', $file or die "Can't open $file: $!";
+<$fh>;
+(my $test_file = $file) =~ s/-open-line//;
+
+unless (my $return = do $test_file) {
+ warn "couldn't parse $test_file: $@" if $@;
+ warn "couldn't do $test_file: $!" unless defined $return;
+ warn "couldn't run $test_file" unless $return;
+}