projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
40d336e12211fc67269d41a8ce3501b0cc3be055
[p5sagit/p5-mst-13.2.git]
/
ext
/
B
/
O.pm
1
package O;
2
use B qw(minus_c);
3
use Carp;
4
5
sub import {
6
my ($class, $backend, @options) = @_;
7
eval "use B::$backend ()";
8
if ($@) {
9
croak "use of backend $backend failed: $@";
10
}
11
my $compilesub = &{"B::${backend}::compile"}(@options);
12
if (ref($compilesub) eq "CODE") {
13
minus_c;
14
eval 'END { &$compilesub() }';
15
} else {
16
die $compilesub;
17
}
18
}
19
20
1;
21