view release on metacpan or  search on metacpan

lib/Child.pm  view on Meta::CPAN

use Child::Link::Parent;

use Exporter 'import';

our $VERSION = "0.013";
our @PROCS;
our @EXPORT_OK = qw/child/;

add_accessors qw/code/;

sub child(&;@) {
    my ( $code, @params ) = @_;
    my $caller = caller;
    return __PACKAGE__->new( $code, @params )->start;
}

sub all_procs { @PROCS }

sub _clean_proc {
    my $class = shift;
    my ($proc) = @_;