view release on metacpan or  search on metacpan

lib/Apache2/PodBrowser.pm  view on Meta::CPAN

    }
}

sub _scanit {
    my ($r, $fun, $where) = @_;
    local $_;

    $fun=~s/%([0-9A-Fa-f]{2})/pack('H2', $1)/eg;
    my $search_re = ($fun=~/^-[rwxoRWXOeszfdlpSbctugkTBMAC]$/
                     ? qr/^=item\s+(?:I<)?-X\b/
                     : $fun=~/^\$[1-9]/
                     ? qr/^=item\s+\$<I<digits>>/
                     : $fun=~/^\$</
                     ? qr/^=item\s+\$<(?!I<digits>>)/
                     : $fun=~/\w$/
                     ? qr/^=item\s+\Q$fun\E\b/
                     : qr/^=item\s+\Q$fun\E/);

    #warn "fun=$fun -- re=$search_re\n";

    my $document='';

t/002.t  view on Meta::CPAN

                  shift shmctl shmget shmread shmwrite shutdown sin sleep
                  socket socketpair sort splice split sprintf sqrt srand
                  stat study sub substr symlink syscall sysopen
                  sysread sysseek system syswrite tell telldir tie tied
                  time times tr truncate uc ucfirst umask undef unlink
                  unpack unshift untie use utime values vec wait waitpid
                  wantarray warn write y /;

my @variables=(qw, $_ $a $b $1..$N $& $` $' $+ $^N @+ $. $/ $|,, '$,',
               qw, $\ $" $; $% $= $- @- $~ $^ $: $^A $? ${^ENCODING} $! %!
                   $^E $@ $$ $< $> $( $) $0 $[ $] $^C $^D $^F $^H %^H $^I
                   $^M $^O ${^OPEN} $^P $^R $^S $^T ${^TAINT} ${^UNICODE}
                   ${^UTF8LOCALE} $^V $^W ${^WARNING_BITS} $^X ARGV ARGVOUT
                   @F @INC @_ %INC %ENV %SIG ,);

#plan 'no_plan';
plan tests => 2*(@functions+@variables);

my $resp=GET_BODY("/perldoc/??");

##########################################