77
|
0 |
56 |
unless &GetOptionsFromArray(\@args, ('l|lib', sub {
push @libs, 'lib';
}
, 'b|blib', sub {
push @libs, 'blib/lib', 'blib/arch';
}
, 'I|include=s@', \@libs, 'R|renderer=s@', \@render, 'L|preload=s@', \@preload, 'c|color=i', \$color, 'h|help', \&App::Yath::help, 'j|jobs=i', \$jobs, 'm|merge', \$merge, 'q|quiet', \$quiet, 'v|verbose', \$verbose, 'x|exclude=s@', \@exclude, 't|timeout=i', \$timeout, 'parser|parser_class=s', \$harness_args{'parser_class'}, 'runner|runner_class=s', \$runner_class, 'S|switch=s@', sub {
push @switches, split(/=/, $_[1], 0);
}
)) |