[cgiapp] Re: Re: feedback on CGI::Application::Dispatch

["Viacheslav Sheveliov" <suppressed>]

I'd like to add.

It's like in Exporter: we make declarations of @EXPORT* vars and
Exporter makes the work for us.

Here a module of that kind I wrote just today.



begin 666 SetupRunmodes.pm
M<&%C:V%G92!#1TDZ.D%P<&QI8V%T:6]N.CI0;'5G:6XZ.E-E='5P4G5N;6]D
M97,[#0H-"G5S92!S=')I8W0[#0IU<suppressed<#L-"G)E<75I<suppressed;W)T
M97([#0H-"F]U<B! 15A03U)47T]+(#T@<7<H<V5T=7!?<G5N;6]D97,I.PT*
M#0H]:&suppressed<&QI8V%T:6]N.CI0;'5G:6XZ.E-E
M='5P4G5N;6]D97,@+2!3971U<"!,/$-'23HZ07!P;&EC871I;VX^(')U;FUO
M9&5S#0H-"@T*/6AE860Q(%-93D]04TE3#0H-"B @<&%C:V%G92!->3HZ07!P
M.PT*#0H@('5S92!#1TDZ.D%P<&QI8V%T:6]N.CI0;'5G:6XZ.E-E='5P4G5N
M;6]D97,[#0H-"B @;W5R("1254Y-3T1%4R ]('L-"B @(" @(&UO9&4Q(" @
M(#T^("=M>5]M;V1E,2<L(" @(" @(" @(suppressed@<W1R:6YG(&]R(&-O
M9&5R968-"B @(" @(&UO9&4R(" @(#T^(%PF;7E?;6]D93(L#0H@(" @("!!
M551/3$]!1" ]/B G97)R;W(T,#0G+ T*(" @(" @4U1!4E0@(" @/3X@)VUO
M9&4Q)RP@(" @(" @(" @(" C('-H;W5L9"!B92!S=')I;F<A#0H@(" @("!%
M4E)/4B @(" ]/B G8V%T8VA?97)R;W)?;6]D92<L(",@<VAO=6QD(&)E('-T
M<FEN9R$-"B @?3L-"@T*#0IO<@T*#0H@('suppressed<#L-"B @
M=7-E($-'23HZ07!P;&EC871I;VXZ.E!L=6=I;CHZ4V5T=7!2=6YM;V1E<SL-
M"B @;W5R("1254Y-3T1%4R ](%MQ=RAM>5]S=&%R=%]M;V1E(&UO9&4Q(&UO
M9&4R*5T[#0H-"@T*/6AE860Q($1%4T-225!424].#0H-"E1H:7,@<&QU9VEN
M('!R;W9I9&5S(&%N(&5A<suppressed('1O('-E='5P($P\0T=).CI!<'!L:6-A
M=&EO;CX@<G5N;6]D97,N(%5N;&EK90T*3#Q#1TDZ.D%P<&QI8V%T:6]N.CI0
M;'5G:6XZ.D%U=&]2=6YM;V1E/suppressed@@9&5M;VYS=')A=&5S(&%D=F%N
M8V5D('1E8VAN:7%U90T*;V8@<&5R;"!P<F]G<F%M;suppressed
M<&QI8V%T:6]N.CI0;'5G:6XZ.E-E='5P4G5N;6]D97,^('5S97,@;6]R92!S
M:6UP;&4-"BAH96YS92!M;W)E(')O8G5S="suppressed<F]A8V@@=&suppressed;VUA
M=&EC86QL>2!S971U<"!R=6YM;V1E<R!T:')O=6=H("1254Y-3T1%4PT*<&%C
M:V%G92!V87)I86)suppressed&AI<R!I<R!A('=A>2!,/$5X<&]R=&5R/B!U<V5S
M($,\0$584$]25"H^('suppressed:6%B;&5S#0IT;R!D969I;suppressed
M;W)T960@<WEM8F]L<suppressed&5F:6YE("1254Y-3T1%4R!P86-K86=E('9A<FEA
M8FQE(&%S($D\:&%S:')E9CX@;W(-"DD\87)R87ER968^(&%N9"!P;'5G:6X@
M=VEL;"!S971U<"!R=6YM;V1E<R!F;W(@>suppressed:&5A9#(@0SPD4E5.
M34]$15,^(&%S(&$@:&%S:')suppressed);B!T:&ES(&-A<V4@)21254Y-3T1%
M4R!H87-H('=I;&suppressed@=7-E9"!A<R!A<F=U;65N="!F;W(-"DP\0T=).CI!
M<'!L:6-A=&EO;CHZ<G5N7VUO9&5S/B!E>&-E<'0@:&%S:"!E;&5M96YT<R!W
M:71H(&9O;&suppressed;W9E<C0-"@T*/suppressed
M5#X-"@T*=F%L=64@;V8@)%)53DU/1$53+3Y[4U1!4E1]('=I;"!B92!U<V5D
M('1O('-E='5P('-A<G1?;6]D90T*#0H]:71E;2!#/$524D]2/@T*#0IV86QU
M92!O9B D4E5.34]$15,M/GM%4E)/suppressed;"!B92!U<V5D('1O('-E='5P
M(&5R<F]R7VUO9&4-"@T*/6)A8VL-"@T*66]U(&-A;B!O;6ET(&)O=&@@:&%S
M:"!E;&5M96YT<R!A;F0@<&QU9VEN('=I;&P@;F]T('-E='5P($,\<V%R=%]M
M;V1E/BP-"D,\97)R;W)?;6]D93X@;W(@8F]T:"X-"@T*#0H-"CUH96%D,B!#
M/"suppressed,@suppressed)R87ER968-"@T*4&QU9VEN('=I;&suppressed
M(&9I<G-T(&5L96UE;G0@;suppressed )%)53DU/1$53/B!A<G)A>2!T;R!P87-S
M(&%S(&%N(&%R9W5M96YT(&9O<@T*<V%R=%]M;V1E+"!A;&P@;W1H97(@96QE
M;65N=',@=VEL;"suppressed&suppressed<&QI8V%T:6]N/B!R
M=6Y?;6]D97,-"G-U8BX-"@T*5&suppressed:60@<V5T=&EN9R!U<"!S87)T7VUO
M9&4@<&%R86TL(&1E9FEN92!F:7)S="!E;&5M96YT(&]F($,\0"1254Y-3T1%
suppressed)R87D-"G1O(&%N>2!F86QS92!P97)L('9A;'5E("@P+"!#/'5N9&5F
M/BP@)R<I(&]R('1O($D\)W5N9&5F)R!S=')I;F<suppressed@(&]U<B D4E5.
M34]$15,@/2!;=6YD968L('%W*&UY7W-T87)T7VUO9&4@;6]D93$@;6]D93(I
M73L-"B @;W5R("1254Y-3T1%4R ](%LP+"!Q=RAM>5]S=&%R=%]M;V1E(&UO
M9&4Q(&UO9&4R*5T[#0H@(&]U<B D4E5.34]$15,@/2!;)R<L('%W*&UY7W-T
M87)T7VUO9&4@;6]D93$@;6]D93(I73L-"B @;W5R("1254Y-3T1%4R ](%MU
M;F1E9B ]/B!Q=RAM>5]S=&%R=%]M;V1E(&UO9&4Q(&UO9&4R*5T[#0H@(&]U
M<B D4E5.34]$15,@/2!;<7<H,"!M>5]S=&%R=%]M;V1E(&UO9&4Q(&UO9&4R
M*5T[#0H@(&]U<B D4E5.34]$15,@/2!;<7<H=6YD968@;7E?<W1A<G1?;6]D
M92!M;V1E,2!M;V1E,BE=.PT*#0IA;F0@<V\@;VXN#0H-"@T*/6-U= T*#0IS
M=6(@:6UP;W)T('L-"B @("!M>2 D8V%L;&5R(#T@<V-A;&%R*&-A;&QE<BD[
M#0H@(" @:suppressed"!53DE615)304PZ.FES82@@)&-A;&QE<BP@)T-'23HZ07!P
M;&EC871I;VXG("D@)B8@)$-'23HZ07!P;&EC871I;VXZ.E9%4E-)3TX@/CT@
M-" I('L-"B @(" @(" @)&-A;&QE<BT^861D7V-A;&QB86-K*"!I;FET(#T^
M(%PF<V5T=7!?<G5N;6]D97,@*3L-"B @("!]#0H-"B @("!G;W1O("9%>'!O
M<G1E<CHZ:6UP;W)T.PT*?0T*#0H]:&suppressed"CUH96%D
M,B!S971U<%]R=6YM;V1E<PT*#0I7:&5N979E<B!Y;suppressed($P\0T=).CI!
M<'!L:6-A=&EO;CHZ4&QU9VEN.CI3971U<%)U;FUO9&5S/B!I="!A=71O;6%T
M:6-A;&QY#0IR96=I<W1E<B!#/'-E='5P7W)U;FUO9&5S/B!R;W5T:6YE('1O
M(')U;B!A="!,/$-'23HZ07!P;&EC871I;VX^($,\:6YI=#X@<W1A9V4N#0I.
M;W)M86QL>2!Y;suppressed&]N)W0@;F5E9"!T;R!C86QL($,\<V5T=7!?<G5N;6]D
M97,^('-U8B!F<F]M('EO=7(@suppressed&]W979E<suppressed>6]U(&9E96P@
M>6]U(&suppressed&suppressed&5X+B!R96EN:70@<G5N;6]D97,I+"!E>'!O<suppressed
M(&-A;&suppressed&AI<R!S=6(@=VET:&]U= T*<&%R86UE=&5R<RX-"@T*("!U<V4@
M0T=).CI!<'!L:6-A=&EO;CHZ4&QU9VEN.CI3971U<%)U;FUO9&5S('%W*'-E
M='5P7W)U;FUO9&5S*3L-"B @+BXN#0H@("1S96QF+3YS971U<%]R=6YM;V1E
M<SL-"@T*#0H]8W5T#0H-"G-U8B!S971U<%]R=6YM;V1E<R![#0H@(" @;7D@
M)'-E;&8@/2!S:&EF=#L-"@T*(" @('5N;&5S<R H(%5.259%4E-!3#HZ:7-A
M*" D<V5L9BP@)T-'23HZ07!P;&EC871I;VXG("suppressed@(" @(" @(&-A
M<G @)T]N;'suppressed).CI!<'!L:6-A=&EO;suppressed;"!T:&ES('-U8B$G
M.PT*(" @(" @("!R971U<FX[#0H@(" @?0T*#0H@(" @;7D@)'!K9R ](')E
suppressed<V5L9BD[#0H-"B @("!M>2 D<FUS.PT*(" @('L-"B @(" @(" @;F\@
M<W1R:6-T("=R969S)SL-"B @(" @(" @)')M<R ]("1[(B1[<&MG?3HZ4E5.
M34]$15,B?3L-"B @("!]#0H-"B @(" C($YO("1254Y-3T1%4R!D969I;F5D
M(#\-"B @("!C87)P*"=S971U<%]R=6YM;V1E<suppressed@<G5N;6]D97,@9&5F
M:6YE9"!I;B G("X@)'suppressed(')E='5R;B!U;FQE<W,@)')M<SL-"@T*
M(" @(&EF("@@<F5F*"1R;7,I(&5Q("=!4E)!62<@*2![#0H@(" @(" @(",@
M;6%K92!A(&-O<'D@;V8@)%)53DU/1$53('1O(&%V;VED(&UO9'EI;F<@;W)I
M9VEN86P@;VYE#0H@(" @(" @(&UY($!R;7,@/2! )')M<SL-"B @(" @(" @
M*&1E9FEN960H)')M<ULP72D@)suppressed"1R;7-;,%T@;F4@)W5N9&5F)RDI#0H@
M(" @(" @( D_("1S96QF+3YS=&%R=%]M;V1E*" D<FUS6S!=("D-"B @(" @
M(" @(" @(#H@<VAI9G0H0')M<RD[#0H-"B @(" @(" @)'-E;&8M/G)U;E]M
M;V1E<suppressed<FUS*3L-"@T*(" @('T-"B @("!E;'-I9B H(')suppressed<FUS*2!E
M<2 G2$%32"<@*2![#0H@(" @(" @(",@;6%K92!C;W!Y#0H@(" @(" @(&UY
M("5R;7,@/2 E)')M<SL-"B @(" @(" @)'-E;&8M/G-T87)T7VUO9&4H(&1E
M;&suppressed<FUS>U-405)suppressed(" @(" @(" @(&EF("@@97AI<W1S*" D
M<FUS>U-405)4?2 I("D[#0H-"B @(" @(" @)'-E;&8M/F5R<F]R7VUO9&4H
M(&1E;&suppressed<FUS>suppressed(" @(" @(" @(&EF("@@97AI<W1S
M*" D<FUS>T524D]2?2 I("D[#0H-"B @(" @(" @)'-E;&8M/G)U;E]M;V1E
M<R@@)7)M<R I.PT*#0H@(" @?0T*(" @(&5L<V4@>PT*#0H@(" @(" @(&-A
M<G @<5MS971U<%]R=6YM;V1E<suppressed<'!R;W!R:6%T92!D871A('1Y<&4@
M;V8@)suppressed D<&MG#0H@(" @(" @(" @+B!Q6SHZ4E5.34]$15,N(%-H;W5L
M9"!B92 G2$%32"<@;W(@)T%24D%9)RY=.PT*#0H@(" @?0T*#0H-"GT-"@T*
M7U]%3D1?7PT*#0H]:&suppressed/3E,-"@T*66]U(&-A;B=T('5S
M92!A="!T:&4@<V%M92!T:suppressed;W9E<B T#0H-"CUI=&5M(#$-"B @
M<W1A<G0@;6]D92!W:71H(&YA;64@)W5N9&5F)R!O<B G,"<-"@T*/6ET96T@
M,@T*("!V87)I86)L92!#/"suppressed,@suppressed)R87ER968-"@T*
M/6)A8VL-"@T*5&\@<F5S;VQV92!T:&ES(&ES<W5E(')E;F%M92!S=&%R="!M
M;V1E('1O('-O;65T:&EN9R!A<')O<')I871E(&]R#0ID969I;suppressed
M34]$15,^(&%S(&$@:&%S:')E9BX-"@T*#0H]:&suppressed($%,4T\-"@T*
M3#Q#1TDZ.D%P<&QI8V%T:6]N/suppressed<&QI8V%T:6]N.CI0;'5G
M:6XZ.D%U=&]2=6YM;V1E/suppressed>'!O<G1E<CXL('!E<FPH,2D-"@T*/6AE
M860Q($%55$A/suppressed(%-H979E;'EO=B \<VQA=F%S:$!A:&$N<G4^
*#0H-"CUC=70-"@``
`
end



---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/suppressed/
              http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: suppressed
For additional commands, e-mail: suppressed