view release on metacpan or  search on metacpan

lib/Erlang/Interface.pm  view on Meta::CPAN

use Carp;

require Exporter;
use AutoLoader;
our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Erlang::Interface ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
    erl_msg_free
    ERL_ATOM
    ERL_BIG
    ERL_BINARY
    ERL_COMPOUND
    ERL_CONS
    ERL_EMPTY_LIST
    ERL_FLOAT
    ERL_FUNCTION
    ERL_INTEGER
    ERL_LIST
    ERL_LONGLONG
    ERL_NIL
    ERL_PID
    ERL_PORT
    ERL_REF
    ERL_SMALL_BIG
    ERL_TUPLE
    ERL_UNDEF
    ERL_U_INTEGER
    ERL_U_LONGLONG
    ERL_U_SMALL_BIG
    ERL_VARIABLE
    MAXREGLEN

	erl_set_compat_rel
	erl_connect_init
	erl_connect_xinit
	erl_connect
	erl_xconnect
	erl_close_connection
	erl_receive
	erl_receive_msg
	erl_xreceive_msg
	erl_send
	erl_reg_send
	erl_rpc
	erl_rpc_to
	erl_rpc_from

	erl_publish
	erl_accept

	erl_thiscookie
	erl_thisnodename
	erl_thishostname
	erl_thisalivename
	erl_thiscreation

	erl_init

	erl_length
	erl_mk_atom
	erl_mk_binary
	erl_mk_empty_list
	erl_mk_estring
	erl_mk_float
	erl_mk_int
	erl_mk_longlong
	erl_mk_list
	erl_mk_pid
	erl_mk_port
	erl_mk_ref
	erl_mk_long_ref
	erl_mk_string
	erl_mk_tuple
	erl_mk_uint
	erl_mk_ulonglong
	erl_mk_var

	erl_print_term
	erl_sprint_term
	erl_size
	erl_tl
	erl_var_content

	erl_format
	erl_match

	erl_global_names
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = ( @{ $EXPORT_TAGS{'all'} } );

our $VERSION = '0.03';

sub AUTOLOAD {
    # This AUTOLOAD is used to 'autoload' constants from the constant()
    # XS function.

    my $constname;
    our $AUTOLOAD;
    ($constname = $AUTOLOAD) =~ s/.*:://;
    croak "&Erlang::Interface::constant not defined" if $constname eq 'constant';
    my ($error, $val) = constant($constname);
    if ($error) { croak $error; }
    {
    no strict 'refs';
    # Fixed between 5.005_53 and 5.005_61
#XXX    if ($] >= 5.00561) {
#XXX        *$AUTOLOAD = sub () { $val };
#XXX    }
#XXX    else {
        *$AUTOLOAD = sub { $val };
#XXX    }