view release on metacpan or  search on metacpan

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

}

sub has_option {
    my($o) = shift;

    #print "current option keys: ", join(", ", keys %current_options), "\n";

    return exists( $current_options{$o} );
}

sub with_options(&$) {
    my($code, $options) = @_;

    local(%current_options);
    @current_options{keys %$options} = (values %$options);

    #print STDERR "current local options are set for: ", join(", ", keys %current_options), "\n";

    my $r = $code -> ();
    #print "r: $r\n";
    $r -> iterator -> source -> _prime() if is_Iterator($r);