File Coverage

blib/lib/udp_proxy.pm

Criterion	Covered	Total	%
statement	12	29	41.3
branch			n/a
condition	0	3	0.0
subroutine	4	10	40.0
pod	1	3	33.3
total	17	45	37.7

package udp_proxy;

use 5.008_008;
use strict;
use warnings;
use POSIX ':signal_h';

require Exporter;

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 udp_proxy ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

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

our @EXPORT = qw(

);

our $VERSION = '0.02';

require XSLoader;
XSLoader::load( 'udp_proxy', $VERSION );

# Preloaded methods go here.

sub new {
	my $invocant = shift;
	my $class = ref( $invocant ) || $invocant;

	my( $self ) = constructor( $class, @_ );
	$self->setup_signal_handlers();
	return $self;
}

sub setup_signal_handlers {
	my( $self ) = @_;

	sigaction SIGINT, new POSIX::SigAction sub { $self->interrupt(); exit; };
	sigaction SIGQUIT, new POSIX::SigAction sub { $self->interrupt(); exit; };
	sigaction SIGTERM, new POSIX::SigAction sub { $self->interrupt(); exit; };
}

sub interrupt {
	my( $self ) = @_;

	$self->interruption();
}

1;
__END__