You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
39 lines
632 B
39 lines
632 B
package ksb::IPC::Null 0.10; |
|
|
|
# Dummy IPC module in case SysVIPC doesn't work or async mode is not needed. |
|
|
|
use strict; |
|
use warnings; |
|
use 5.014; |
|
|
|
use parent qw(ksb::IPC); |
|
|
|
sub new |
|
{ |
|
my $class = shift; |
|
my $self = $class->SUPER::new; |
|
|
|
$self->{'msgList'} = []; # List of messages. |
|
return bless $self, $class; # OOP in Perl is so completely retarded |
|
} |
|
|
|
sub sendMessage |
|
{ |
|
my $self = shift; |
|
my $msg = shift; |
|
|
|
push @{$self->{'msgList'}}, $msg; |
|
return 1; |
|
} |
|
|
|
sub receiveMessage |
|
{ |
|
my $self = shift; |
|
|
|
return undef unless scalar @{$self->{'msgList'}} > 0; |
|
|
|
return shift @{$self->{'msgList'}}; |
|
} |
|
|
|
1; |
|
|
|
|