File Coverage

blib/lib/IPC/Simple/Message.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch			n/a
condition			n/a
subroutine	16	16	100.0
pod	5	7	71.4
total	54	56	96.4

package IPC::Simple::Message;
# ABSTRACT: a message received from an IPC::Simple process
$IPC::Simple::Message::VERSION = '0.08';

use strict;
use warnings;

use overload fallback => 1,
  '""' => \&message;

use constant IPC_STDIN  => 'stdin';
use constant IPC_STDOUT => 'stdout';
use constant IPC_STDERR => 'stderr';
use constant IPC_ERROR  => 'errors';

BEGIN{
  use base 'Exporter';

  our @EXPORT = qw(
    IPC_STDIN
    IPC_STDOUT
    IPC_STDERR
    IPC_ERROR
  );
}

sub new {
  my ($class, %param) = @_;

  bless{
    source  => $param{source},
    type    => $param{type},
    message => $param{message},
  }, $class;
}

sub type    { $_[0]->{type} }
sub source  { $_[0]->{source} }
sub message { $_[0]->{message} }
sub stdout  { $_[0]->type eq IPC_STDOUT }
sub stderr  { $_[0]->type eq IPC_STDERR }
sub error   { $_[0]->type eq IPC_ERROR }

1;

__END__