File Coverage

blib/lib/BSD/Itimer.pm

Criterion	Covered	Total	%
statement	30	34	88.2
branch	3	8	37.5
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	42	51	82.3

# File:		Itimer.pm
# Author:	Daniel Hagerty, [e-mail]
# Date:		Sun Jul  4 17:05:49 1999
# Description:	Perl interface to BSD derived {g,s}etitimer functions
#
# Copyright (c) 1999 Daniel Hagerty. All rights reserved. This program
# is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself.
#
# $Id: Itimer.pm,v 1.1 1999/07/06 02:56:10 hag Exp $

package BSD::Itimer;

use strict;
use Carp;

use Exporter;
use DynaLoader;
use AutoLoader;

use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);

###

# This version number is incremented explicitly by the human.
$VERSION = '0.8';

@ISA = qw(Exporter DynaLoader);
# 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.
@EXPORT = qw(
	     ITIMER_PROF
	     ITIMER_REAL
	     ITIMER_REALPROF
	     ITIMER_VIRTUAL
	     getitimer
	     setitimer
	     );

sub AUTOLOAD {
    # This AUTOLOAD is used to 'autoload' constants from the constant()
    # XS function.  If a constant is not found then control is passed
    # to the AUTOLOAD in AutoLoader.

    my $constname;
    ($constname = $AUTOLOAD) =~ s/.*:://;
    croak "& not defined" if $constname eq 'constant';
    my $val = constant($constname, @_ ? $_[0] : 0);
    if ($! != 0) {
	if ($! =~ /Invalid/) {
	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
	    goto &AutoLoader::AUTOLOAD;
	}
	else {
		croak "Your vendor has not defined BSD::Itimer macro $constname";
	}
    }
    {
	no strict "refs";
	*$AUTOLOAD = sub { $val };
    }
    goto &$AUTOLOAD;
}

bootstrap BSD::Itimer $VERSION;

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__