Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
testpods	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
contains_bad_pod.xr	31 B	-r--r--r--	2014-12-27 11:48
contains_pod.t	306 B	-r--r--r--	2014-12-27 11:48
contains_pod.xr	32 B	-r--r--r--	2014-12-27 11:48
empty.xr	0 B	-r--r--r--	2014-12-27 11:48
emptycmd.t	422 B	-r--r--r--	2014-12-27 11:48
emptycmd.xr	58 B	-r--r--r--	2014-12-27 11:48
find.t	2.82 KB	-r--r--r--	2014-12-27 11:48
for.t	945 B	-r--r--r--	2014-12-27 11:48
for.xr	390 B	-r--r--r--	2014-12-27 11:48
headings.t	4.23 KB	-r--r--r--	2014-12-27 11:48
headings.xr	1.03 KB	-r--r--r--	2014-12-27 11:48
include.t	884 B	-r--r--r--	2014-12-27 11:48
include.xr	743 B	-r--r--r--	2014-12-27 11:48
included.t	1.02 KB	-r--r--r--	2014-12-27 11:48
included.xr	126 B	-r--r--r--	2014-12-27 11:48
lref.t	1.21 KB	-r--r--r--	2014-12-27 11:48
lref.xr	941 B	-r--r--r--	2014-12-27 11:48
multiline_items.t	537 B	-r--r--r--	2014-12-27 11:48
multiline_items.xr	147 B	-r--r--r--	2014-12-27 11:48
nested_items.t	760 B	-r--r--r--	2014-12-27 11:48
nested_items.xr	310 B	-r--r--r--	2014-12-27 11:48
nested_seqs.t	480 B	-r--r--r--	2014-12-27 11:48
nested_seqs.xr	114 B	-r--r--r--	2014-12-27 11:48
oneline_cmds.t	1.41 KB	-r--r--r--	2014-12-27 11:48
oneline_cmds.xr	1.03 KB	-r--r--r--	2014-12-27 11:48
podselect.t	381 B	-r--r--r--	2014-12-27 11:48
podselect.xr	1.52 KB	-r--r--r--	2014-12-27 11:48
selfcheck.t	1.25 KB	-r--r--r--	2014-12-27 11:48
special_seqs.t	1.46 KB	-r--r--r--	2014-12-27 11:48
special_seqs.xr	1.08 KB	-r--r--r--	2014-12-27 11:48
testcmp.pl	2.76 KB	-r--r--r--	2014-12-27 11:48
testp2pt.pl	5.63 KB	-r--r--r--	2014-12-27 11:48
testpchk.pl	3.58 KB	-r--r--r--	2014-12-27 11:48
twice.t	643 B	-r--r--r--	2014-12-27 11:48

Rename

BEGIN {
   use File::Basename;
   my $THISDIR = dirname $0;
   unshift @INC, $THISDIR;
   require "testp2pt.pl";
   import TestPodIncPlainText;
}

my %options = map { $_ => 1 } @ARGV;  ## convert cmdline to options-hash
my $passed  = testpodplaintext \%options, $0;
exit( ($passed == 1) ? 0 : -1 )  unless $ENV{HARNESS_ACTIVE};

__END__

=pod

This is a test to see if I can do not only C<$self> and C<method()>, but
also C<< $self->method() >> and C<< $self->{FIELDNAME} >> and
C<< $Foo <=> $Bar >> without resorting to escape sequences. If 
I want to refer to the right-shift operator I can do something
like C<<< $x >> 3 >>> or even C<<<< $y >> 5 >>>>.

Now for the grand finale of C<< $self->method()->{FIELDNAME} = {FOO=>BAR} >>.
And I also want to make sure that newlines work like this
C<<<
$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]
>>>

Of course I should still be able to do all this I<with> escape sequences
too: C<$self-E<gt>method()> and C<$self-E<gt>{FIELDNAME}> and C<{FOO=E<gt>BAR}>.

Dont forget C<$self-E<gt>method()-E<gt>{FIELDNAME} = {FOO=E<gt>BAR}>.

And make sure that C<0> works too!

Now, if I use << or >> as my delimiters, then I have to use whitespace.
So things like C<<$self->method()>> and C<<$self->{FIELDNAME}>> wont end
up doing what you might expect since the first > will still terminate
the first < seen.

Lets make sure these work for empty ones too, like C<<  >> and C<< >> >>
(just to be obnoxious)

=cut