Pod-Trial-LinkImg-0.001/000777 000001 000002 00000000000 11126554610 010307 Pod-Trial-LinkImg-0.001/.cvsignore001777 000001 000002 00000000162 11126534346 012323 blib* Makefile Makefile.old Build _build* pm_to_blib* *.tar.gz .lwpcookies POD-Trial-LinkImg-* cover_db Pod-Trial-LinkImg-0.001/Changes001777 000001 000002 00000000172 11126534346 011617 Revision history for POD-Trial-LinkImg 0.01 Date/time First version, released on an unsuspecting world. Pod-Trial-LinkImg-0.001/Makefile.PL001777 000001 000002 00000001021 11126534346 012270 use strict; use warnings; use ExtUtils::MakeMaker; WriteMakefile( NAME => 'POD::Trial::LinkImg', AUTHOR => 'Otto Hirr ', VERSION_FROM => 'lib/POD/Trial/LinkImg.pm', ABSTRACT_FROM => 'lib/POD/Trial/LinkImg.pm', PL_FILES => {}, PREREQ_PM => { 'Test::More' => 0, }, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, clean => { FILES => 'POD-Trial-LinkImg-*' }, ); Pod-Trial-LinkImg-0.001/MANIFEST001777 000001 000002 00000000152 11126534346 011453 Changes MANIFEST Makefile.PL README lib/POD/Trial/LinkImg.pm t/00-load.t t/pod-coverage.t t/pod.t Pod-Trial-LinkImg-0.001/README001777 000001 000002 00000002706 11126534346 011211 POD-Trial-LinkImg The README is used to introduce the module and provide instructions on how to install the module, any machine dependencies it may have (for example C compilers and installed libraries) and any other information that should be provided before the module is installed. A README file is required for CPAN modules since CPAN extracts the README file from a module distribution so that people browsing the archive can use it to get an idea of the module's uses. It is usually a good idea to provide version information here so that people can decide whether fixes for the module are worth downloading. INSTALLATION To install this module, run the following commands: perl Makefile.PL make make test make install SUPPORT AND DOCUMENTATION After installing, you can find documentation for this module with the perldoc command. perldoc POD::Trial::LinkImg You can also look for information at: RT, CPAN's request tracker http://rt.cpan.org/NoAuth/Bugs.html?Dist=POD-Trial-LinkImg AnnoCPAN, Annotated CPAN documentation http://annocpan.org/dist/POD-Trial-LinkImg CPAN Ratings http://cpanratings.perl.org/d/POD-Trial-LinkImg Search CPAN http://search.cpan.org/dist/POD-Trial-LinkImg COPYRIGHT AND LICENCE Copyright (C) 2008 Otto Hirr This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Pod-Trial-LinkImg-0.001/lib/000777 000001 000002 00000000000 11126554610 011055 Pod-Trial-LinkImg-0.001/lib/Pod/000777 000001 000002 00000000000 11126554610 011577 Pod-Trial-LinkImg-0.001/lib/Pod/Trial/000777 000001 000002 00000000000 11126554610 012652 Pod-Trial-LinkImg-0.001/lib/Pod/Trial/LinkImg.pm001777 000001 000002 00000005226 11126554564 014570 package Pod::Trial::LinkImg; use warnings; use strict; our $VERSION = '0.001'; # ------------------------------------------------------------------------------ # ------------------------------------------------------------------------------ 1; __END__ =head1 NAME Pod::Trial::LinkImg - Test image display in pod docs. =head1 VERSION Version 0.01 =head1 SYNOPSIS Trial demonstration of image display in pod documentation. =head1 DESCRIPTION This module actually does nothing. =head2 Motivation =over 4 I =back or so says some sage. Way back in the dinasaur age of December 1977 Ken Thompson used graphics when he wrote a manuscript on the I as found in B. (Yes I have a copy and for the young folks, there was only one phone company back then.) My calander today says we are about to flip to 2009 and yet I find no graphics displayed in any documentation as displayed at L. This is 32 years!!! I find this a major step backwards - and most especially as we continue to push the levels of complexity. If a module writer really wants to provide better documentation with graphics, then there should be some method for it to be displayed at L. This do-nothing module is to test this out. =head2 Idea My idea is to have images display as follows: =begin html
Idea Figure

=end html =begin text =over 4 Image of 'Bright Idea', see C. =back =end text The real issue is what does the magic script behind L do to display pod information. And what kind of link should be inserted to have it be found. Those are the questions to be determined. If it can be descerned what links are needed for L, how would it fair for other distro type mechanisms such as C in B's distribution and manual display. =head1 AUTHOR Otto Hirr, C<< >> =head1 BUGS and SUPPORT Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 COPYRIGHT & LICENSE Copyright 2008 Otto Hirr, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut Pod-Trial-LinkImg-0.001/lib/Pod/Trial/LinkImg/000777 000001 000002 00000000000 11126554610 014204 Pod-Trial-LinkImg-0.001/lib/Pod/Trial/LinkImg/BrightIdea.png001777 000001 000002 00000050647 11126541626 016744 PNG  IHDR,ݽK pHYsttfxtIME 99tEXtAuthorH tEXtDescription !# tEXtCopyright:tEXtCreation time5 tEXtSoftware]p: tEXtDisclaimertEXtWarningtEXtSourcetEXtComment̖tEXtTitle' IDATx}ws޽UztfQQ`K1vIT$o^S>,Q5EhĮ"J{;sy?3gΖK^fggδ󛧞0D1b'#ƾ1b1 c(39g"$a vJ Q?剄Jy;VPn޼>xoմf͖MmC4]an/""dرsCs~:`@ Vb3hӷ{P_][W01QŬkOн t:زegm^hҥjj׿~ؕWٳ(m() ,Y{u9sG!CTx A((qˈJH "? P+W}kvO;syƝGHM_կxC<..pc'`LB!_ bRw̟G[胛n:F8㺮81cP".[k_S.ր IH$ 쀄=oDK$R3PY`c+s % u=3wDяXַO-$x.x$๐4 ڄ 4'#1wu FO[5(皇@^O p6Muɟ~?AXUU@$?׿}imT 8σ <"AWu1v XdVAmB"H P4v;@:u9{!RIŘmI(u:f!quqs @ƒD\\#dcli?,!{ ٛ#8 Y@)hmAC}vi ӧ_âhw.YwV?*XgHFQ56,5yT [%1!%:.6lϛ;wy}rҶ$\|ݚ5͇-%8"ppcjh3p#C<$8, õlH),HYѳ*Yxڑ#眜AĘyhwn*0 8f %aQ$=!2@&Aq`!p@q`RsBm`Z׭ڰam =3Ayhw 8g~,"9ε4Р3pP $ (@1R~.4X{MHy1D caN0>eA 3H?i+?7V#߄wcʽhm|+1v%a&SJS&p?wcȿvO7.ygm޲ya3EU`.U˵pncIhRc`f!Rr!~mkϋRg-n50jRG 4Č10-wyq{e&`HB)D  o#"뺰0wmgYq:rXV~U8cN:vbW SV؎6|9/碸'gh29bms8C/s$,[{Rn_4?O xKEv,5I{[^V6?!wێnoN$at]?jOa[G-vs=J$a҈ ,߮RJ)/͚5?ٰaÿ6m\\&f_ 48N;v8C!f\k)RVVgJ!D,iB|a3h{OO \~-t[&hܺu[&/ {yE-RGX(Fl3yUw]4}?-ZJ8MndY@f2Mkgq^ LNMl6]x^u L?ثrd,A+{({34f{ yp fHJ́0 Jm>.=r[l0kQRTXym?ʂLP P4B)BL+6s0!S))@1ֽ˲.HRJu`0~tT-XtAS˙ͻyS&~GsNRmU7-%祔2}8ADˡ3w+W|%Aמ5NɸLaAF)3fPܛ :tС?Cyvw P"@89&cpی|FrB?Іcc}~p鹜3Lu]ݘ1c*Ϸ9/0HU3 z72M4/G= O6(sӦ㚿Xv‚1* H^J 8C84"^VJ}ۧO]~O<@)zf.w YH2Vḵ #I`[cwoQPDHgkbgyڂ1F+ ay7cayM'rɌ7@iMyԢ"(aY<,nľEB5L@R m"5i$b|d~x=ygqɟHD4;1/ Kic#~ uWz_,ZLJ>GB =X 4bo6hm>^2Ǝq"Rqٺ(1X}y׼[q5R=}H$OLV!aC܂b$booX#>X{6Ԧ+ߍ9Vc _ %!'q?h"~DE!}h#ϑrX̃hkD!#J#7yᐼT1$vE[#-Ԩf%Tcy %%>f-JEJEjiH$kFϞ={ѣG?9C\>FB X {.'ܿ"1+?ر~!;'TW'3+7Hcv,+Uho$Q?{O[/lo`fɠAnN3BbiJ .f[[[uw2K}?!O=;.Nd2KKw7?qf2bClݺEPI6%^}R2Uew.d2_+O3>Xd̻U26ng?P 0L?Yt~>)1J}B3K8S;62u+|Ť\UqR]_$+G Qtea{{]pl+C5owz>"^}:݆FTլE^Rh[ %O7vK?߯<_j8k}q-\L(L )9 {p򬮌jd{쪩|$TJ !v_|st:\X~ڥwEe r54HWBSJfLJIjB3o I3"ZgXKK5aXs>]XJuS8F` K)yc:{8ȋU3[W'ACf\.W.FEl&q(ډB&A@~~k&'5f*. 1>~=)%um 0g:vd\\JSm&U5mzF7asFhU$\Z7|T2Q$,n"U\kէi-*y"nk?ӛo\ūVxD"H$>]uR*+U3Ƥ^bː~a%HX2fr%e %d ?f(0exFq}gvض- !vm¸~P) zm4A))e14[[{=t[=39[:QO;=0E -J( 3-`R=5\oqGJ,(.%UUUUUܰmg7me }?E~!c 8=PYh WXm{؊":Y56Q~d*J&٧6oّa) =e]Gfl;5e2. ݨNBx;o̓07"fc;ѶLlk3 "(ma^<u}?Q%Vq/-:r|-q"9޸[~2F.H$v }RPeo>L1qeiRJ~B3{LP!gi@(tssR8~[Qÿ s+i°QEC6\8ܻ?D=' P FRZ7'("H$(OH)!Ю @7D8bH6"BR}aF)Uy q9wm. >` Ø l[$+(,t0Fy4@!SȀqa2Ca=[pƀ11X8x|s9pGo{2FRJR2DBw)(t^j`wuz#0 Cxfcw1KwF6C_J@;Yԙ>`ӂX`P0J<+ZttVj[o0^hxqģe_#DI]F0|,8(GzamXmTe-P(!u&(gwƶ<^KKXb6J @A^ŀ3O"!ʽ(y yYsvRfVȽ!v7ڟICP놱|RW )a+FH{!ڙ׹x;(l#^[> e;;ovu(Sч;e>wD"R 7viE/m i'l'`*8c$d&e7J"J`ܛT$,r; 9( lke{8يm Fn_)k J4P Uʒ9{Dh.&m׻4qBd"J@2TgȸK(:JFIP>pW Qv T]WP=mF+fe IDATRPpͽ aMy#/Kb(Jkyg-bnB)D9!!@v-Q""J Bg'qqt$m0*%G1/fhF լm'Mdcf$L&]DT='`=]+#r$t*a<4n Uް=5<2gCУFJ -՟LF/H tH$; tMecǠ/" a20@J颁_6 vYOe>N^:}y udtWخ$!@@ Y4֡p`kuy X+ԩr(( )C>d/Ы*"`驈9WT EBKf˖٥߿ɫhnMC /ï.]A82}IH$ KI˲$pp]\p==ဖH4M#i„$֐R@ppSYAI첾vd %sXOּw]Tɩ_`{;Y[׫R2)C" UY\{ҹSOy*Tk9p,UUJABXMM;O<ǭ[W7#HYH֠a )zv?H0aWdI9iCqN*dG$?EJ"TYMPQ PR8xgs=e U@%:eD2קNceh]]T qe)Vحݑ;όL5z£9.d@5 :( IjY}rfHTFjܤPNKB[)Ymۺj^K#;.2&J&$+MrMxN[ZZ^}uc1m▖d$a¨&(CxD1jkk9zƪ$Rڷ9P^Fg!tZԤd7l^Wc/~ _RL)۶a~#;O1*J544tرCT Z*%"!MWf[[[nݺiӦO||Ys:6%8=q#KV yv\LbU$zఐRQNI:d`gJʦ{,׮|.khH]7`@]ǎPmv :~ 555$cIRUfSӳBGs۶mlVaf|6>g  תvB6D4}Xxk׍:_ӲAjO$յuuuDX-ل<ϫ2|#Y:6<4+}-ylMX4a`e_z0nCU+ UUUuuuDD"a懋d2I5)D6ٞ+_Ο^}|GI'J), Xv[o}W'cySo~sa"H&TX z2XL$T*>8kvRQش)xWx&b4eue,`wyo;!t]n[l*JST2̝-F>J=! = B/NB!'>/q(wx TuC1h;E}Hg_Z ̞rݫ ׍AZ:Isۋzm d%;Df56=9 !:Zbp6:ة JuV6on+W0n\I' J$rTPINRr_NҞt>FHa4< $V.sol~#\סW"LL%)kV7"Xt=G jTƂ"G{ fK$;'g&@b%3%WW?{ЎP!yY `—>XLcSNзo5X6ȏO2Ľb]GHH0 P~ї^Z1ga纞p%A2?tѴ#L~+L¨@uuuuuuƍAՃMf%$4(|~キW}'tn]U ࠃӱcM-Q9׳[%2r "c 6ollzSەs}i LC) E46)(mm'3͚kWyaCWUΝ^I%aVXazօ?b|o~k~O2@*̫F$g 5/\ךO=ϰa 0lb Ar3#vc샨In]]wpϜqz/?С1`8 '^fm>A<_>52yw~ pΤ//ִ!C)q\;tc)_)S[.Kcdه a?OgO'L8+s/_;vMUcLN˘@6u⿭/} '(HR0*gQfI{=/jyCS)1aswc 8*JȑT9_zS?9W_}y}?ȃ>wKq֯Xq{na!̘:vNs*2XݗQNI?Sg|sc3F5HF 3"pD\B.TDD)K.po;df nY~0 V}l;}CP631u큲W}zǡra uSH bB/ |kSvOҥ=qoF t-W=әF՝tRϺq[h{Ac( 'Noνމiqps0P&L(D%*%TJ*%Q^w"y'NǖI'ŽDR\ҭk>^DuɽG!4O1l||O*rq븞븎:81s1΀1K`HBRJ!@%BK.}O~_<{wrQnT(y;k>z[gٷ_CBM6vfho1jOK&9UQ O MBamP#ESIP"r.0;:75#3h uC;A ` i>;N^SRjjC#30R[zy aau81Аca X)6R p"GdmEzˋgZѥۙWwXzۺW>*Żg5hA eh^() gZ<}ܿ<p`1ssqrswĶnJMuͼT*@X}7n޼~Jc ssw9w8K0  IX0TT]d1dL(Ikk?>찜oۏ<[;ڴ<܃/ hټy}8CCrRa8DGH@DmB1R=\<h*2KP18cL!c) }:~|ٳ?2ClQT^^l͛Ċo9_aÆlJ)ڽp9zT"Gܒx Q' ,Z*䨸RlРիl6NWUUi[X m۲=JUy?ٲe@ڗXG5 ZUUJQv~~UJaX!2 ϰ0^#I9EAuu^Ufe4}a^s=%ko%ljĨ--d2 CD *y(Ht HH 43T*L!1SNkkLgl6a)1P枤B*]AFվm.[nȐ]wBn) &I?{8ctgܸロU4AJR PJTZuTHDSyhIi3=h>R()Jl0T3LQؕi\ai! El(]W0tk PF!lچfVȔBJH[J)$76uѳjk$7u]{\Gc)wGOѢ(BIC9za҈B-RR |kC"vMmmȮOAF %gSq,F%嗏{ Y#RRI)TT/ Gw0ۙ34ʰzd*h=vj<1?E!*R)!2  KQ'f`= BjNfΙ9s `E)e;,V%d턒1v=u!E()cYD$ iA}; Bӌ<\fNcQjoN&xIB#adR- 'T!4QLY4hPjZc840DѮ($d'JP*M" P1bPAh jAP]~/M'f c2F%Ԓ$HI)CYhN~j?'"NI( ;r%cA 4$*JB)],XeR1*Ko\pĀiƨ!E;v'lZRR,@*h %!!k DYώ'fcq/F<$$b\q'TZJ%TR2 s&~ s@(Ml1m7b0F6)OJ]?;q aN]>";{ӔI;IoyP)]Ӿ8{NBd@S&-c1Z_d刄@S-q`_-7L4&/gٹ²!!v4$_`O `D|VJ4멧[l$Bǀ3] s8Y6a.3Eˉ'Niv4e MK龟Nmܼuw?N|̭4E*ڞv7#?M"sٕ6iCh껽!7gpC\vmU]+_F_d VrdI7NP~oG[z5"dytFSǨw; g뉔sjоH@FkB䝌9#0#? m9g;ݦ}f;ںApڴ}oyD2L$b^Mf~6+E0SeNy b0V߅;~ p33'}(0@hbcQ2s__nm'9/?ҡ6p_IK¿]ιzǵX׽B)Yx2˦~Ы_|h>]:` v~oD4ZRG s>yuktGB1(gg}b / ?SկK$ȳH$ɤ$$v}}}ccc}J@G)д&(gt}x|ERJEG~zUZ,zo.{}_{D ۏQ${~λYL^Jp}Wأ'\ۚxY`ڏAgֹgsNH! ~ "&)wΜ` \רm|GmvW?6a;gw㫌iʈc6 A+a PJIi^u̙Qe,4FQ)! cK) H.| QV-.w |@Q MB{4[v3xbl6um۞f d_ 8ۉ9;HOjqCD!D [Ɍ5Qʥ@Ӕ[rۋl>=O/P]L~tȶmԕu_8fwM,М=PI!VDR W,Ѫ1{ @:)T 12C6 `:,l&a8A Gf*\SktJRJX@*G+CN>"]99ltL/bmK IАz㭍MMo޴i͛6nd2Y(LyӦMk>Y;{D"禘-h{rip_~o v&FDyC^/jZ>=%aHk,E꫉(1% UWɱũ$ =KXI{erN>"8l6;m/^Ov~'{OSA{f]p^볾ycL .wƘ.$D6M47[[<ۍ,=sa }G*e&՞繜o X yk/ܼvڦE-X`a^> 3μ՛B);G$J蹿zߌrb 1:[0V+ "b3"X䰍GEC`TNGJg3C 2dEFDˡ;sM+>.D&.m%΢HxVem--L<NJ !lkkkm[RLFw.3MT8x1IO5<Ѱ1La1fayjn >||!|Cor_o#!ʯe 8 gl[ࣿ^tyXN1ƹ90c__K?Fw8|WI)EW X3/n)2صSi݅јjd$gg{Wx歛nٲlɒ~tɒKXlV55}jʦMM6mf3߹d;'v*S %Xve28jB+}l ಿhX@t2iF2՞~kÇcƎ &Q;lAN1гW(?oaÆx;d @ɇzOk#&M~>: 7 t$qgl~;r^qL;iBp„K6sgmZwp޼w{w+Θ#yѹO? /.# .Swb*MEREOU+ޣBAj`mVźuDcJ3r# ͟Dt0 }#1֦?ZSMBS~韌VŌ;F笻`{MQ_q>pCZ^ظsg `!b6m'wqh}mf)2Ah;Nz J&4d2YWWХKN:544PJ;{t2W`0}L)EO34"'DA 9cLYΞQed9Xkk+e;V|㶡0>pFwjٸ.tfXq)%i~"љI{cD2IjK틵syBޗ^0μI UUU4PhO cT/w!ΧvԸ9msF!>䭴EsKuy"Awy,pQG:練1|X! MZ>\Լis0ztǫgB/Q*4j8dU!R$C}DHf-S&j>Տ_ttG? RMi%4}-y<[34/M1!^㌹@s[_17Ao K3Dzy9W.d_+ ~קieVԧ_!6tuARHhΉLwe`"'$40!K]GXsC2MwGN)w=7~cԂI+am.^j!^sFsjl6Z0䤃ƋaheA˱-J᩶S8pbݪZT߾ءCr(q1 XWWWWWW[[keݷS؄%Q4H$lFͻvCxj47 Ț5p|땟8ힼӿ?<@^JpL! F>' բhg60k~Ut&эhC^1su6a3X2>%婎%F,0k,y=ޯ*@&9KEIHS/_*X 4˦奀܊)n,y.ό(@oo=a#C0ob!$aM g,koٱ60־!yw0"oII!UG lU=vP{59lǸ0lϼS2r@јm5vA> Yu|ۦ,*&40aL5J/w Ye(SUT4 Fs^1˰^ z}dguv5A0墼g '(t]o1 ,po@L[:*cbƈQf.1ʌ1b1 c(3bƈQf$̈I#F0F2#&aeΣS%IENDB`Pod-Trial-LinkImg-0.001/t/000777 000001 000002 00000000000 11126554610 010552 Pod-Trial-LinkImg-0.001/t/00-load.t001777 000001 000002 00000000260 11126534346 012106 #!perl -T use Test::More tests => 1; BEGIN { use_ok( 'POD::Trial::LinkImg' ); } diag( "Testing POD::Trial::LinkImg $POD::Trial::LinkImg::VERSION, Perl $], $^X" ); Pod-Trial-LinkImg-0.001/t/boilerplate.t001777 000001 000002 00000002542 11126534346 013261 #!perl -T use strict; use warnings; use Test::More tests => 3; sub not_in_file_ok { my ($filename, %regex) = @_; open( my $fh, '<', $filename ) or die "couldn't open $filename for reading: $!"; my %violated; while (my $line = <$fh>) { while (my ($desc, $regex) = each %regex) { if ($line =~ $regex) { push @{$violated{$desc}||=[]}, $.; } } } if (%violated) { fail("$filename contains boilerplate text"); diag "$_ appears on lines @{$violated{$_}}" for keys %violated; } else { pass("$filename contains no boilerplate text"); } } sub module_boilerplate_ok { my ($module) = @_; not_in_file_ok($module => 'the great new $MODULENAME' => qr/ - The great new /, 'boilerplate description' => qr/Quick summary of what the module/, 'stub function definition' => qr/function[12]/, ); } TODO: { local $TODO = "Need to replace the boilerplate text"; not_in_file_ok(README => "The README is used..." => qr/The README is used/, "'version information here'" => qr/to provide version information/, ); not_in_file_ok(Changes => "placeholder date/time" => qr(Date/time) ); module_boilerplate_ok('lib\POD\Trial\LinkImg.pm'); } Pod-Trial-LinkImg-0.001/t/pod-coverage.t001777 000001 000002 00000001071 11126534346 013326 use strict; use warnings; use Test::More; # Ensure a recent version of Test::Pod::Coverage my $min_tpc = 1.08; eval "use Test::Pod::Coverage $min_tpc"; plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage" if $@; # Test::Pod::Coverage doesn't require a minimum Pod::Coverage version, # but older versions don't recognize some common documentation styles my $min_pc = 0.18; eval "use Pod::Coverage $min_pc"; plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" if $@; all_pod_coverage_ok(); Pod-Trial-LinkImg-0.001/t/pod.t001777 000001 000002 00000000364 11126534346 011541 #!perl -T use strict; use warnings; use Test::More; # Ensure a recent version of Test::Pod my $min_tp = 1.22; eval "use Test::Pod $min_tp"; plan skip_all => "Test::Pod $min_tp required for testing POD" if $@; all_pod_files_ok();