Lines Matching refs:args
94 my %args = /^\#\#\ ([^\n]*)\n # Key is on a line starting ##
99 foreach ($args{Name}, $args{Require}, $args{Extra}) {
102 my @extra_args = !defined $args{Extra} ? () : split /,/, $args{Extra};
104 if ($args{File}) {
105 $body ="package $module;\n" . $args{File};
123 cmp_ok ($output, 'eq', $args{Get}, "Output from autosplit()ing $args{Name}");
125 if ($args{Files}) {
126 $args{Files} =~ s!/!:!gs if $^O eq 'MacOS';
129 foreach (split /\n/, $args{Files}) {
149 if ($args{Require}) {
150 $args{Require} =~ s|/|:|gm if $^O eq 'MacOS';
151 my $com = 'require "' . File::Spec->catfile ('auto', $args{Require}) . '"';
161 if ($args{Match}) {
163 my $file = File::Spec->catfile($dir, $args{Require});
167 foreach my $pat (split /\n/, $args{Match}) {
173 if ($args{Tests}) {
174 foreach my $code (split /\n/, $args{Tests}) {
179 if (my $sleepfor = $args{Sleep}) {
196 unless ($args{SameAgain}) {