.## 156( perlxtra ' require# 1805 Perl_Continued_Offset! 2 / custom_variable&# 185 ' pod_beg+$ =pod' pod_beg&# 186 ' pod_too+% =head' pod_too&# 187 ' pod_end+$ =cut' pod_end# 190$ perl" $1# 191 " $1 ( keymap_p. " $1 + make_keymap /b# 192( Win_Keys * is_defined.# 193) perl_help# ^C? " $1 ) definekey# 194* perl_check# ^Cc " $1 ) definekey# 195) perl_exec# ^Ce " $1 ) definekey# 196) perl_info# ^Ci " $1 ) definekey# 1972 perl_indent_region# ^C " $1 ) defi nekey# 198( perltidy$ ^C^T " $1 ) definekey/b# 201+ indent_line! " $1 ) definekey# 202. perl_beg_chunk# ^A " $1 ) definekey# 203. perl_end_chunk# ^E " $1 ) definekey# 204/ perl_mark_chunk# ^H " $1 ) definekey# 205/ perl_ne xt_chunk# ^N " $1 ) definekey# 206/ perl_prev_chunk# ^P " $1 ) definekey# 2072 perl_mark_matching# ^M " $1 ) definekey# 208( perltidy# ^T " $1 ) definekey# 2095 perl_format_paragraph" q " $1 ) definekey# 2102 newline_and_inde nt$" \r " $1 ) definekey# 2142 perl_indent_region"  " $1 ) definekey# 217$ perl" $1# 218 " $1 3 create_syntax_table# 219! # " 37 " $1 - define_syntax# 220 ' pod_beg ' pod_end" 37 " $1 - define_syntax# 221# ([{# )]}" 40 " $1 - define_syntax# 222" 39" 34 " $1 - define_syntax# 223" 34" 34 " $1 - define_syntax# 224" 92" 92 " $1 - define_syntax# 225- $%0-9@A-Z_a-z# 119 " $1 - define_syntax# 226. -+.0-9_xa-fA-F" 48 " $1 - define_syntax# 227% ,.:;?" 44 " $1 - define_syntax# 228- !&*+-/<=>`^|~" 43 " $1 - define_syntax# 229 " $1" 16# 128J 0 set_syntax_flags# 281 " $1# 2826 doiflcmynoqqqrqwqxtruc# 283! 2# 281 / define_keywordsP# 284 " $1# 285b abschrcosdieeofexpforhexintlogmapoctordo urpopposrefsinsubtieusevec# 286! 3# 284 / define_keywordsP# 287 " $1# 288@!bindcarpchopdumpeachelseevalexecexitforkgetcglobgotogrepjoinkeyskilllastlinklocknextopenpackpipepushrandreadrecvredoseeksendsizesortsqrtstattelltiedtimewaitwarn# 289! 4 # 287 / define_keywordsP# 290 " $1# 291Y!alarmatan2blesschdirchmodchompchownclosecroakcryptelsiffcntlflagsflockindexioctllocallstatmkdirorderprintresetrmdirsemopshiftsleepsplitsrandstudytimesumaskundefuntieuntilutimewhilewrite# 292! 5# 290 / defin e_keywordsP# 293 " $1# 294l!acceptcallerchrootdeleteexistsfilenoformatgmtimeimportlengthlistenmsgctlmsggetmsgrcvmsgsndprintfrenamereturnrindexscalarselectsemctlsemgetshmctlshmgetsocketsplicesubstrsystemunlessunlinkunpackvaluesvector# 295! 6# 293 / define_keywordsP# 296 " $1# 297V!binmodeconfessconnectdefinedforeachgetpgrpgetppidlcfirstopendirpackagereaddirrequirereverseseekdirsetpgrpshmreadsprintfsymlinksyscallsysopensysreadsysseektelldirucfirstunshiftwaitpid# 298! 7# 296 / define_keywords P# 299 " $1# 300H!closedircontinueendgrentendpwentformlinegetgrentgetgrgidgetgrnamgetlogingetpwentgetpwnamgetpwuidreadlinereadlinkreadpipesetgrentsetpwentshmwriteshutdownsyswritetruncate# 301! 8# 299 / define_keywordsP# 302 " $1# 303q endneten tgetnetentlocaltimeprecisionprototypequotemetarewinddirsetnetentwantarray# 304! 9# 302 / define_keywordsP# 305 " $1# 306z endhostentendserventgethostentgetserventgetsockoptsethostentsetserventsetsockoptsocketpair# 307" 10# 305 / define_keyword sP# 308 " $1# 309m endprotoentgetpeernamegetprioritygetprotoentgetsocknamesetprioritysetprotoent# 310" 11# 308 / define_keywordsP# 311 " $1# 3128 getnetbyaddrgetnetbyname# 313" 12# 311 / define_keywordsP# 314 " $1# 315T gethostbyaddrge thostbynamegetservbynamegetservbyport# 316" 13# 314 / define_keywordsP# 317 " $1# 318. getprotobyname# 319" 14# 317 / define_keywordsP# 320 " $1# 3210 getprotobynumber# 322" 16# 320 / define_keywordsP# 326 " $1. eqgegtleltneor! 2! 1 1 define_keywords_nP# 327 " $1, andcmpnotxor! 3! 1 1 define_keywords_nP,.# 335 ( pop_spot/o# 337 ) push_spot*# 338 # ptp+ . parse_to_point# ptp# 341 # bol# 342" 61 / looking_at_char.# 343 * go_right_1# 344 * _get_point# 345# a-z * skip_chars# 346 * _get_point:." -3w/c/c*# 349 $ here+ ) what_line$ here# 353' ^=[a-z] * re_bsearch.# 354 ' pod_end + bol_fsearch/.# 355 $ here ) what_line=/6.# 356" -3w/c# 359 # ptp.# 360 ) goto_spot# 361 . bol_skip_white# 362" 35 / looking_at_char." -2w/c/b# 365 # ptpw# 3323 perl_parse_to_point&# 369 ) delimiter+- $%@([{:?}])) delimiter,*# 378 " cs+ + CASE_SEARCH" cs* " rc+! 0" rc.# 381 ( pop_spot# 382 " cs+ CASE_SEARCH/o# 385! 1+ CASE_SEARCH# 386 ) push_spot # 388 & _NARGS * __pop_args.*# 389 % token+"% value% token*# 390 # len+ % token & strlen# len# 392 ) goto_spot# 393 % token * looking_at.# 394 # len ( go_right# 395 * _get_point# 396 ) delimiter * skip_chars# 397 * _get_point: $ eolpD " rc# 398 " rc.v/c/c/# 402 " rcw# 376/ perl_looking_at,*# 412 " cs+ + CASE_SEARCH" cs* " rc+! 0" rc.# 415 ( pop_spot# 416 " cs+ CASE_SEARCH/o# 419! 1+ CASE_SEARCH# 420 ) push_spot*# 422 ! n+ * _get_point! n# 423 & _NARGS * __pop_arg s.*# 424 % token+"% value% token*# 425 # len+ % token & strlen# len# 427 ! n # len=.u/c# 429 ) goto_spot# 430 # len ' go_left# 431 % token * looking_at.# 432 * _get_point# 433 ) delimiter + bskip_chars# 434 * _get_point: $ bolpD" rc# 435 " rc.v/c/c/# 439 " rcw# 4100 perl_blooking_at,*# 442 % endch+E find_matching_brace_ignore_fold_marks,*# 443 % endch+*# 445 ! m+ 0 create_user_mark! m# 446! 1 % endch 7 find_matching_delimiterB.# 447! 0w/c# 448# #{{ + blooking_at $ # {{ + blooking_atD.# 449! 1w/b# 450! 2 ' go_left# 451! 1 % endch E find_matching_brace_ignore_fold_marksA.# 452! 1w/c# 454 ! m . goto_user_mark# 455! 0w# 443E find_matching_brace_ignore_fold_marks,*# 467 " ch+*# 468 # col+! 1 # col*# 469 ) indent_ok+! 0) indent_ok*# 470 , extra_indent+ + Perl_Indent, extra_indent*# 471 # ptp+# 473 ) push_spot# 474 # bol# 475 ) what_char" ch# 476 3 perl_parse_to_point# ptp# 484 # ptp" -3A # ptp" -2A " ch" 35ACD.# 485 ( eol_trim # 486 ( pop_spotw/c# 490 * skip_white# 491 ) what_char" ch.# 495 ) goto_spot# 496 . bol_skip_white# 497 + what_column # colB.# 498 ( bol_trim# 499# col# 500 # col * whitespace/c# 502 ) goto_spot# 503 + bskip_white# 504 $ bolp# 505 ( pop_s pot.# 506 . bol_skip_white/c/o*# 509 " rc % endch+" 41% endch# 510 % endch 7 find_matching_delimiter" rc# 512 " rc.# 513 ) goto_spot # bol# 514" 93% endch# 515 % endch 7 find_matching_delimiter" rc/b# 517 " rc! 1A.# 519 . bol_skip_whit e# 520 + what_column# col# 541 " ch % endchB. , extra_indent# col/c# 542) indent_ok/c# 545 ) goto_spot # bol# 550# 125% endch# 551 " ch# 123A.) indent_ok/c# 552 % endch E find_matching_brace_ignore_fold_marks.# 554 + Perl_Indent, extra_i ndent# 573 + what_column# col# 574 + bskip_white# 575 ) push_spot# 576! 0" rc# 578" 40 * bfind_char." 91 * bfind_char/7.# 579 ) goto_spot# 580" 41 7 find_matching_delimiter" rc# 581 " rc.# 582 ) goto_spot# 583" 93 7 find_matching _delimiter" rc/b/c# 586 ( pop_spot# 588 " rc! 1A.# 589) indent_ok/.# 593 * _get_point# 594$ +<=> + bskip_chars# 595 * _get_point:.# 596) indent_ok/.# 598% bless 0 perl_blooking_at.# 599) indent_ok/c/d# 605 . bol_skip_white# 606 + wha t_column# col/d# 609 " ch % endchB.# 610 , extra_indent# col/.# 612) indent_ok/d/c# 616 ) indent_ok.w/c# 619 ) goto_spot.# 624 $ up_1.# 625 # bolv/b# 628 . bol_skip_white# 629 $ eolp. * go_right_1/b/.# 630 3 perl_parse_to_point" -2>/k# 631 # eol.# 634 3 perl_parse_to_point# ptp # ptp" -2>/.# 635! 1 $ left.v/b/f# 640 + bskip_white# 641" 59" ch# 642 $ bolp.# 643 ) go_left_1# 644 3 perl_parse_to_point" -2@. ) what_char" ch/c/b# 649 5 Perl_Continued_Offset, extra_indent# 6 50$ ;({} " ch $ char ) is_substrN.# 651 , extra_indent# col/.# 653# 125 " chA.# 655 " ch 7 find_matching_delimiterP# 656 + bskip_white# 658$ grep# map$ sort 0 perl_blooking_at.# 659 . bol_skip_white# 660 + what_column# col/.# 664 ) g oto_spot# 665 . bol_skip_white# 667$ grep# map$ sort# 668# and" or# 669" &&" ||# 670! ?! :# 667 / perl_looking_at.# 671 , extra_indent# col/c/d/c/d# 4650 perl_indent_line,# 686 % markp.# 687 0 perl_indent_linew/b# 691! 1 , chec k_region# 692 & narrow*# 694 $ line+! 0$ line*# 695 & nlines+ ) what_line& nlines# 696 # bob# 697 % widen*# 699 " cs+ + CASE_SEARCH" cs! 1+ CASE_SEARCH.# 700 ( pop_spot " cs+ CASE_SEARCH/n.# 703$ line# 704 ( eol_trim # bol# 706 ' pod_be g * looking_at. ' pod_too * looking_at/7..# 707 & down_1/.# 708$ line# 709 ' pod_end * looking_at.v/c# 710 ( eol_trim/fu/c# 714 $ eolp.u/c# 715 * skip_white# 718" 35 / looking_at_char.# 719 + indent_line/.# 722 + indent_line# 723" < < % ffind % right.# 724 ) push_mark# 725' A-Z_a-z * skip_chars*# 726 $ junk+# ;$ junk*# 727 $ here+ ) bufsubstr$ here*# 728 # len+ $ here & strlen# len# 729 $ junk * skip_chars# 730 # len $ eolp" 35 / looking_at_charDC..# 731 & d own_1/.# 732$ line# 733 $ here * looking_at.# 734 # len ( go_right# 735 $ junk * skip_chars# 736 $ eolp" 35 / looking_at_charD.v/c/c# 738 ( eol_trim/f/.# 741 + indent_line/d/c/d# 7456 processed %d/%d lines. $ line & nlines ( vmessage /.# 746 & down_1 $ line & nlines=C/k# 748 3 EXECUTE_ERROR_BLOCK# 6842 perl_indent_region,# 760 ) push_spot# 761 # bob ) push_mark # eob# 762 2 perl_indent_region# 763 ( pop_spot# 7582 perl_indent_buffer,*# 771 & dirfun+# 773 ) push_mark.# 774 & dirfunM/.# 776 . bol_skip_white# 777 ' pod_beg * looking_at# sub * looking_atD.# 778 * pop_mark_0w/c/f# 782 * pop_mark_1# 771- perl_pn_chunk,# 785}$ up_1 - perl_pn_chunky/ perl_prev_chunk,# 786}& down_1 - perl_pn_chunky/ perl_nex t_chunk,*# 799 # beg+ ' pod_beg# beg*# 800 # ptp+ 3 perl_parse_to_point# ptp# 801 # ptp" -3?.# sub# beg/c# 802 # eol# 803 # beg + bol_bsearch.( Top of ' # beg9, ' not found.9 % error/b# 797y. perl_beg_chunk,# 815 . perl_beg_chunk*# 81 6 # ptp+ 3 perl_parse_to_point# ptp# 817 # ptp" -3?.# 818# 123 , fsearch_char.* goto_match $ call/c/.# 820 # bol# 821 ' pod_end + bol_fsearch. ' pod_end* not found9 % error/b/d# 813y. perl_end_chunk,# 834 . perl_beg_chunk# 835 1 push _visible_mark# 836 . perl_end_chunk# 837 # eol# 838 7 exchange_point_and_mark# 832y/ perl_mark_chunk,*# 851 # beg+# ([{# beg* # end+# )]}# end*# 852 " ch+ ) what_char" ch.# 855 * pop_mark_1/n.*# 859 " fn+" fn# 860 , set_mark_cmd# 861! 1 " ch 7 find_matching_delimiterB.# 862< matching delimiter not found % error/c# 863 " fnM# 864 7 exchange_point_and_markw/p# 868 # beg " ch $ char ) is_substr.# 869}* go_right_1 - X_USER_BLOCK0/.# 870 # end " ch $ char ) is_substr.# 871}/ skip_word_chars - X_USER_BLOCK0/c/d# 877 + bskip_white# 878 * _get_point# 879 # beg + bskip_chars# 880 * _get_point:.# 881 ) what_char" ch# 882}* go_right_1 - X_USER_BLOCK0/c# 886 * skip_white# 887 * _get_point# 888 # end * skip_cha rs# 889 * _get_point:.# 890 ) go_left_1# 891 ) what_char" ch# 892}/ skip_word_chars - X_USER_BLOCK0/c# 849y2 perl_mark_matching,*# 896 $ menu+# 898 $ menu0 &Top of Function. perl_beg_chunk 0 menu_append_item# 899 $ menu0 &End of Function . perl_end_chunk 0 menu_append_item# 900 $ menu. &Mark Function/ perl_mark_chunk 0 menu_append_item# 901 $ menu. &Format Buffer2 perl_indent_buffer 0 menu_append_item# 896. perl_init_menu&# 904 0 PerlMode_Comment+" # 0 PerlMode_Comment&# 905 3 PerlMode_CommentLen+! 23 PerlMode_CommentLen,# 913 $ bolp.# 914 ) push_spot# 915 . bol_skip_white# 916" 35 / looking_at_char.*# 917 # col+ + what_column# col# 918# col# 919 ( pop_spot# 920 ' newline# 921 # col - insert_spaces# 922 0 PerlMode_Comment & insertw/c# 925 ( pop_spot/b# 927 ' newline# 928 + indent_line# 911y7 perl_newline_and_indent&# 932 3 Perlmode_Fill_Chars+ 3 Perlmode_Fill_Chars,# 942 3 Perlmode_Fill_Chars & strlen.! 0w/c# 943 ) push_spot# 944 . bo l_skip_white# 945 0 PerlMode_Comment * looking_at.# 946 3 PerlMode_CommentLen ( go_right# 947 * skip_white/.# 948" ## * looking_at.# 949 # eol/c/d# 952 $ eolp" -2 . parse_to_pointBD# 953 ( pop_spot# 940y2 perl_paragraph_sep,*# 965 % dwra p+# 967 3 Perlmode_Fill_Chars# 968 2 perl_paragraph_sep.w/c# 969 ) push_spot.# 970 2 perl_paragraph_sepN/.# 971 $ up_1.v/b/f# 973 2 perl_paragraph_sep. ) go_down_1/c# 974 ) push_mark# 975 ) goto_spot.# 977 2 perl_paragraph_sepN/.# 978 & down _1.v/b/f# 980 2 perl_paragraph_sep. ' go_up_1/c# 981 & narrow# 982 ) goto_spot# 984 # bol# 985 ) push_mark# 986 * skip_white# 987 0 PerlMode_Comment * looking_at. 3 PerlMode_CommentLen ( go_right/c# 989 ) bufsubstr3 Perlmode_Fill_Chars# 990 + what_column% dwrap# 991 # bob.# 993 ( bol_trim# 994 0 PerlMode_Comment * looking_at. 3 PerlMode_CommentLen $ deln/c/.# 995 & down_1/k# 996 % dwrap$ WRAP# 9970 format_paragraph $ call# 998 % dwrap$ WRAP# 999 # bob.$ 1001 3 Perlmode_ Fill_Chars & insert/.$ 1002 & down_1/k$ 1004 3 Perlmode_Fill_Chars$ 1005 % widen$ 1006 ( pop_spot# 963y5 perl_format_paragraph,*$ 1057 $ mode+$ perl$ mode$ 1059 $ mode! 4 ( set_mode$ 1060 $ mode * use_keymap$ 1061 $ mode 0 use_synt ax_table$ 1069 - push_spot_bob*$ 1070 # beg+ ' pod_beg# beg$ 1071 # beg + bol_fsearchN ' pod_too + bol_fsearchC.$ 1072 ' pod_too# beg/c$ 1073 # beg ' pod_end" 37 $ mode - define_syntax$ 1074 ( pop_spot$ 1076' par_sep2 perl_paragraph_sep / set_buffer_hook$ 1077+ indent_hook}0 perl_indent_line / set_buffer_hook$ 1081 $ mode) fold_info$. =pod\r=cut\r\r 2 mode_set_mode_info$ 1083 $ mode. init_mode_menu}. perl_init_menu 2 mode_set_mode_info$ 1084. perl_mode_hook . run_mode_h ooks$ 1055y) perl_mode