1*0Sstevel@tonic-gateBEGIN { 2*0Sstevel@tonic-gate use File::Basename; 3*0Sstevel@tonic-gate my $THISDIR = dirname $0; 4*0Sstevel@tonic-gate unshift @INC, $THISDIR; 5*0Sstevel@tonic-gate require "testp2pt.pl"; 6*0Sstevel@tonic-gate import TestPodIncPlainText; 7*0Sstevel@tonic-gate} 8*0Sstevel@tonic-gate 9*0Sstevel@tonic-gatemy %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash 10*0Sstevel@tonic-gatemy $passed = testpodplaintext \%options, $0; 11*0Sstevel@tonic-gateexit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; 12*0Sstevel@tonic-gate 13*0Sstevel@tonic-gate 14*0Sstevel@tonic-gate__END__ 15*0Sstevel@tonic-gate 16*0Sstevel@tonic-gate 17*0Sstevel@tonic-gate=pod 18*0Sstevel@tonic-gate 19*0Sstevel@tonic-gateThis is a test to see if I can do not only C<$self> and C<method()>, but 20*0Sstevel@tonic-gatealso C<< $self->method() >> and C<< $self->{FIELDNAME} >> and 21*0Sstevel@tonic-gateC<< $Foo <=> $Bar >> without resorting to escape sequences. If 22*0Sstevel@tonic-gateI want to refer to the right-shift operator I can do something 23*0Sstevel@tonic-gatelike C<<< $x >> 3 >>> or even C<<<< $y >> 5 >>>>. 24*0Sstevel@tonic-gate 25*0Sstevel@tonic-gateNow for the grand finale of C<< $self->method()->{FIELDNAME} = {FOO=>BAR} >>. 26*0Sstevel@tonic-gateAnd I also want to make sure that newlines work like this 27*0Sstevel@tonic-gateC<<< 28*0Sstevel@tonic-gate$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b] 29*0Sstevel@tonic-gate>>> 30*0Sstevel@tonic-gate 31*0Sstevel@tonic-gateOf course I should still be able to do all this I<with> escape sequences 32*0Sstevel@tonic-gatetoo: C<$self-E<gt>method()> and C<$self-E<gt>{FIELDNAME}> and C<{FOO=E<gt>BAR}>. 33*0Sstevel@tonic-gate 34*0Sstevel@tonic-gateDont forget C<$self-E<gt>method()-E<gt>{FIELDNAME} = {FOO=E<gt>BAR}>. 35*0Sstevel@tonic-gate 36*0Sstevel@tonic-gateAnd make sure that C<0> works too! 37*0Sstevel@tonic-gate 38*0Sstevel@tonic-gateNow, if I use << or >> as my delimiters, then I have to use whitespace. 39*0Sstevel@tonic-gateSo things like C<<$self->method()>> and C<<$self->{FIELDNAME}>> wont end 40*0Sstevel@tonic-gateup doing what you might expect since the first > will still terminate 41*0Sstevel@tonic-gatethe first < seen. 42*0Sstevel@tonic-gate 43*0Sstevel@tonic-gateLets make sure these work for empty ones too, like C<< >> and C<< >> >> 44*0Sstevel@tonic-gate(just to be obnoxious) 45*0Sstevel@tonic-gate 46*0Sstevel@tonic-gate=cut 47