Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from blib/lib/Inline.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Inline; | |
5 | ||
6 | #line 956 "blib/lib/Inline.pm (autosplit into blib/lib/auto/Inline/with_configs.al)" | |
7 | #============================================================================== | |
8 | # Get config hints | |
9 | #============================================================================== | |
10 | sub with_configs { | |
11 | my $o = shift; | |
12 | my @configs; | |
13 | for my $mod (@{$o->{CONFIG}{WITH}}) { | |
14 | my $ref = eval { | |
15 | no strict 'refs'; | |
16 | &{$mod . "::Inline"}($o->{API}{language}); | |
17 | }; | |
18 | croak M25_no_WITH_support($mod, $@) if $@; | |
19 | push @configs, %$ref; | |
20 | } | |
21 | return @configs; | |
22 | } | |
23 | ||
24 | # end of Inline::with_configs | |
25 | 1; |