view release on metacpan or  search on metacpan

lib/Data/Pipeline/Machine.pm  view on Meta::CPAN

    $machines{$class} ||= Data::Pipeline::Aggregator::Machine -> new( );
}
}

sub import {
    my($own_class) = @_;
        
    my $CALLER = caller();

    # see Moose.pm for explanation :-)
    strict->import;
    warnings->import;

    return if $CALLER eq 'main';

    my $machine = _machine($CALLER);

    my %exports;


#    $exports{connect} = sub {