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