File: Example.pm

package info (click to toggle)
libalien-build-perl 2.84-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,116 kB
  • sloc: perl: 10,350; ansic: 134; sh: 66; makefile: 2
file content (23 lines) | stat: -rw-r--r-- 342 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
package LZMA::Example;

use strict;
use warnings;
use Inline with => 'Alien::xz';
use Inline C => <<'END';
#include <lzma.h>
const char * _version_string()
{
  return lzma_version_string();
}
END
use Exporter qw( import );

our $VERSION = '0.01';
our @EXPORT = qw( lzma_version_string );

sub lzma_version_string
{
  _version_string();
}

1;