Lufs::C - C interface to perl

Lufs documentation Contained in the Lufs distribution.

Index

Code Index:

NAME

Top

Lufs::C - C interface to perl

ABSTRACT

Top

This interface is used by the C code to call the perl subs.

SEE ALSO

Top

perlfs.c

AUTHOR

Top

Raoul Zwart, <rlzwart@cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright 2003 by Raoul Zwart

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Lufs documentation Contained in the Lufs distribution. 
package Lufs::C;

use vars qw/$AUTOLOAD/;
use base 'Lufs::Glue';

our $object;
our %config;

sub AUTOLOAD {
    my $method = (split/::/,$AUTOLOAD)[-1];
    $method eq 'DESTROY' && return;
	my $ret = $object->$method(@_);
	$object->TRACE($method, @_, $ret);
	$ret;
}

1;
__END__
# Below is stub documentation for your module. You'd better edit it!