i am not able to follow symbolic links when using the find() command. it says on the manual that the 'follow' or 'follow_fast' option should be used but i don't understand how to use it together with the '\&wanted' routine -

use File::Find;

find(\&wanted,  @directories);
find(\%options, @directories);
[download]

I'm using Imager to render truetype fonts but there is no output, and no error, it's just blank. I checked $Imager::formats{tt} to see if Imager has truetype support and it's blank. I have some /usr/share/fonts/truetype so I dunno why Imager says that. How can Imager be compiled with tt support?

I have another computer with a similar setup but on that one Imager does render truetype even though $Imager::formats{tt} is blank! They are different operating systems and versions of Imager so I don't know. I could install the only fonts that Imager supports on this box: Freetype2, but I want to use truetype and would appreciate any ideas you have on how to get Imager to use my fonts.

Thank you.

My script below works, but i have one problem, it just display out 1 record

What i need is to return all records from database

my $sth = $dbh->prepare("SELECT 
  snd.name, snd.country, m.item, m.eqty, m.price, m.line, m.prodct FRO
+M
  buys as m
  JOIN Busers as snd ON snd.id = m.buyer WHERE CASE WHEN (SELECT SUM(s
+tatus = ?) FROM  buys) > 0 THEN m.status = ? ELSE m.status = ?  OR m.
+status = ? OR m.status = ? END
  ORDER BY created ASC");
$sth->execute('sold', 'forsell', 'bugt', 'paid', 'inshop');
my $Data = $sth->fetchall_arrayref();

foreach my $Data (@$Data) {
    
    my ($name, $country, $item, $eqty, $price, $line, $prodct) = @$Dat
+a;
    
    $html = "<tr>
    <td>
        
            <p>$name</p>
        
       
        <p>
            
            $eqty, $price, $line,
        </p>
        
            $prodct
       
            $country
        </td>
</tr>
";

}
[download]

First of all, i have to admit that i feel that i should know this already, but i just don't.

Is it possible to add external cpp/h files when using Inline::CPP? I only need XS bindings for the stuff i'm inlining, the rest only needs to be accesible through the inlined CPP code.

Here is the simplest example i could tink of.

test.pl	use Inline CPP; for(1..3) { print "Perfect random number: ", cast_die(), "\n"; } __END__ __CPP__ #include "xkcd.h" int cast_die() { int rolled = xkcd_dice_roll(); return rolled; } [download]
xkcd.h	#ifndef XKCD_DICE #define XKCD_DICE // See https://xkcd.com/221/ for why this is absolutely perfect #define FAIRLY_GENERATED_RANDOM_NUMBER 4 int xkcd_dice_roll(); #endif [download]
xkcd.cpp	#include "xkcd.h" int xkcd_dice_roll() { return FAIRLY_GENERATED_RANDOM_NUMBER; } [download]

Is something like this even possible with Inline::CPP?

while developing a module I like to run (F5) the testsuite automatically. I'm using a moulino approach which works considerably well

#BEGIN {                         # TODO
    unless ( caller() ) {              # Modulino for development
        exec q(cd ../..; prove  ./t/); #run proove from dist root 
    }
#}
[download]

It occurred to me that I have to enclose this inside a BEGIN block to avoid the overhead and side-effects of loding all modules with use (this happens in the BEGIN phase) before the unless is executed at run time.

This doesn't work, since caller() IS defined inside BEGIN

BEGIN { warn "Caller Begin: ",defined caller(0) }
warn "Caller Normal: ",defined caller();
[download]

Caller Begin: 1 at /home/lanx/...
Caller Normal:  at /home/lanx/...
[download]

EDIT Solution

while writing this I realized that BEGIN is called 2 levels down, hence caller(2) seems to work

BEGIN {                         # TODO
    unless ( caller(2) ) {              # Modulino for development
        exec q(cd ../..; prove  ./t/); #run proove from dist root 
    }
}
[download]

Is this reliable?

(I think it is, but I already wrote this post, before finding the solution and the monastery is not overwhelmed with writeups :)

I'm developing a DBIx distribution and need to check plenty of SQL in the tests.

My approach is to use SQLite as primary engine, since it comes with the DBD::SQLite module installed and that's not much of a prerequisite (it's even comes bundled with Strawberry Perl!)

My issue is where to put the temporary SQLite file...

• in the distribution's /t directory?
• in the FS's /tmp ? What about other OSes?
• or should I restrict the SQL-testing to the authors system

Those SQLite files don't become big, but I'm not sure about writing stuff into the dist directory. On a side note:

I want to be able to switch to other DB-Servers while testing. (But now really author's side unless explicitly wanted by the user)

What's the best approach to make this configurable?

• A prove option
• an ENV setting
• a prompt while testing? (DBI can test for available DBD:: drivers)

For our beloved brother chatterbot, though, this isn't the case. The XML version returns nothing, which breaks the XML parser in pc-cb-g. Why is that?