view release on metacpan or  search on metacpan

lib/Alien/Lua.pm  view on Meta::CPAN

  $CanUseLuaJIT = 0;
  eval "require Alien::LuaJIT"
  and do {
    $CanUseLuaJIT = 1;
  };
}

sub new {
  my ($class, %opt) = @_;
  my $luajit = delete $opt{luajit};
  my $self = $class->SUPER::new(%opt);
  bless($self, __PACKAGE__);
  if ($luajit && $CanUseLuaJIT) {
    $self->{alien_luajit} = Alien::LuaJIT->new(%opt);
  }
  return $self;
}

sub luajit { return $_[0]->{alien_luajit} }

sub cflags {
  my $self = shift;
  if (not ref($self) or not $self->luajit) {
    return $self->SUPER::cflags(@_);
  }
  return $self->luajit->cflags(@_);
}

sub libs {
  my $self = shift;
  if (not ref($self) or not $self->luajit) {
    return $self->SUPER::libs(@_);
  }
  return $self->luajit->libs(@_);
}


1;
__END__

=head1 NAME