use strict;
use warnings;
-our $VERSION = '1.302015';
+our $VERSION = '1.302101';
use Test2::API::Instance;
test2_pid
test2_stack
test2_tid
+ context
};
use Carp qw/confess/;
our @EXPORT_OK = qw/cull/;
-use base 'Exporter';
+BEGIN { require Exporter; our @ISA = qw(Exporter) }
sub import {
goto &Exporter::import unless test2_init_done();
- confess "Cannot add IPC in a child process" if test2_pid() != $$;
- confess "Cannot add IPC in a child thread" if test2_tid() != get_tid();
+ confess "Cannot add IPC in a child process (" . test2_pid() . " vs $$)" if test2_pid() != $$;
+ confess "Cannot add IPC in a child thread (" . test2_tid() . " vs " . get_tid() . ")" if test2_tid() != get_tid();
Test2::API::_set_ipc(_make_ipc());
apply_ipc(test2_stack());
=head1 COPYRIGHT
-Copyright 2016 Chad Granum E<lt>exodist@cpan.orgE<gt>.
+Copyright 2017 Chad Granum E<lt>exodist@cpan.orgE<gt>.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.