[KinoSearch] Scorer::doc

[Father Chrysostomos]

On Mar 1, 2008, at 2:26 PM, Marvin Humphrey wrote:

> I'd really like a way of running code samples in documentation.

In this particular case, since you’ve kept your indentation  
consistent, something like this should work:


use Test::More tests => ...;

open my $pod_fh, "lib/KinoSearch/Docs/CookBook/WildCardQuery.pod" or  
die $!;
my $code;
while (<$pod_fh>) {
	$code .= $_ if /^    /;
}
eval $code;

# tests .....
etc.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.rectangular.com/pipermail/kinosearch/attachments/20080301/39cf1d00/attachment.htm