use is basically require + ->import, so you can do the following:

eval {

    require Inline;
    Inline->import( C => Config =>
        ccflagsex => '-test-bliako-A' );
    Inline->import( C => $c_code );
};
[download]

Thanks Corion++ that does the trick! nice.

I found another way with The-bind()-Function of Inline which works fine for multiple code blocks and recovers from previous bad configuration. Unfortunately there is a caveat mentioned in the documentation, which I did not understand:

Although bind() is a powerful feature, it is not recommended for use i
+n Inline based modules. In fact, it won't work at all for installable
+ modules.
[download]

This is how I use bind() with code and configuration:

  use Inline;
  Inline->bind( CUDA => $code,
    BUILD_NOISY => 1,
    clean_after_build => 0,
    warnings => 10,
  );
[download]

And it is happy inside eval or try/catch (Try::Tiny).

I was thinking about this and realised that one can have multiple Inline code blocks. I have tried it and also within eval and try/catch and they work except that if a configuration fails (for my tests) then it sticks with it and does not seem to re-configure. Using bind() as above seems to recover from previous bad compilations.

Inline's preferred way is to specify the code in a BEGIN block and then use Inline => ... which does not allow for inlining code dynamically. bind() does.

PS: I have also asked the author a question here

The advantage of "use Inline C => ..." is that it happens at compile-time when there is still a chance to declare functions for use further down in the module. Otherwise, perl code later in the module (as it is being compiled) won't know that the XS functions exist, forcing you to use parentheses when calling them.

This advantage might not apply to that many people, but I'm guessing that was why it was done as a BEGIN behavior.

If I've understood what you are attempting correctly then it works if you split out the Inline parts into a separate file and do it like this:

$ cat bliako.pl
use strict;
use warnings;

use Inline C => Config =>
        ccflagsex => '-test-bliako-A',
;

use Inline C => <<'EOC';
#include <stdio.h>

EOC
$ cat bliako.t
use strict;
use warnings;

use Test::More tests => 1;

do './bliako.pl';
isnt $@, '', 'Inline C fails as expected';
$ prove -v bliako.t
bliako.t .. 
1..1
ok 1 - Inline C fails as expected
ok
All tests successful.
Files=1, Tests=1,  1 wallclock secs ( 0.03 usr  0.01 sys +  0.82 cusr 
+ 0.19 csys =  1.05 CPU)
Result: PASS
$
[download]

HTH.

thanks but ouch! i was afraid of this.