File Coverage

blib/lib/POE/Component/TSTP.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	4	0.0
condition	0	2	0.0
subroutine	3	6	50.0
pod	0	3	0.0
total	12	37	32.4

# $Id: TSTP.pm,v 1.3 2002/12/17 18:10:21 matt Exp $

package POE::Component::TSTP;
use strict;
use POE;
use vars qw($VERSION);

$VERSION = '0.02';

sub create {
    my $class = shift;
    my %args = @_;

    POE::Session->create(
        inline_states => {
            _start => \&new,
            sigtstp => \&sigtstp,
        },
        args => [ $args{Alias}, $args{PreSuspend}, $args{PostSuspend} ],
    );
}

sub new {
    my ($kernel, $heap, $alias, $pre, $post) =
       @_[KERNEL, HEAP, ARG0, ARG1, ARG2];

    $kernel->sig(TSTP => 'sigtstp');
    $kernel->alias_set($alias || 'tstp_handler');
    $heap->{PreSuspend} = $pre;
    $heap->{PostSuspend} = $post;
}

sub sigtstp {
    $_[HEAP]->{PreSuspend}->(@_) if $_[HEAP]->{PreSuspend};
    local $SIG{TSTP} = 'DEFAULT';
    kill(TSTP => $$);
    $_[KERNEL]->sig_handled();
    $_[HEAP]->{PostSuspend}->(@_) if $_[HEAP]->{PostSuspend};
}

1;
__END__