Lines Matching refs:_
138 my %opts = @_;
201 my %opts = @_;
312 my %opts = @_;
326 my %opts = @_;
337 my %opts = @_;
348 my %opts = @_;
359 my %opts = @_;
373 my %opts = @_;
432 my %opts = @_;
473 local $_;
477 my $l = ($opts{prefix} // "") . $_;
525 my $failure = scalar(grep { $_ == 0; } $tb->summary);
560 return __bldtop_dir(@_); # This caters for operating systems that have
579 return __bldtop_file(@_);
597 return __srctop_dir(@_); # This caters for operating systems that have
616 return __srctop_file(@_);
633 return __data_dir(@_);
650 return __data_file(@_);
687 return catfile(result_dir(),@_,$f);
704 my @cmds = @_;
712 my ($c, $dc, @el) = $_->(++$counter);
760 $saved_hooks{$_} = $hooks{$_} if exists($hooks{$_});
761 $hooks{$_} = $opts{$_};
767 $hooks{$_} = $saved_hooks{$_};
802 my %opts = @_;
881 return ok(!$_[0], @_[1..$#_]) if defined $ENV{FIPS_MODE};
882 return ok($_[0], @_[1..$#_]);
886 return isnt($_[0], $_[1], @_[2..$#_]) if defined $ENV{FIPS_MODE};
887 return is($_[0], $_[1], @_[2..$#_]);
891 return is($_[0], $_[1], @_[2..$#_]) if defined $ENV{FIPS_MODE};
892 return isnt($_[0], $_[1], @_[2..$#_]);
981 return abs2rel(catfile($directories{SRCTOP},@_,$f),getcwd);
987 return abs2rel(catdir($directories{SRCTOP},@_), getcwd);
994 return abs2rel(catfile($directories{BLDTOP},@_,$f), getcwd);
1000 return abs2rel(catdir($directories{BLDTOP},@_), getcwd);
1030 my $out = catfile($directories{BLDTEST},@_,$f . $e);
1031 $out = catfile($directories{SRCTEST},@_,$f) unless -f $out;
1040 my $out = catfile($directories{BLDAPPS},@_,$f . $e);
1041 $out = catfile($directories{SRCAPPS},@_,$f) unless -f $out;
1050 my $out = catfile($directories{BLDFUZZ},@_,$f . $e);
1051 $out = catfile($directories{SRCFUZZ},@_,$f) unless -f $out;
1061 return catfile($directories{SRCDATA},@_,$f);
1069 return catdir($directories{SRCDATA},@_);
1083 my %opts = @_;
1121 if (!file_name_is_absolute($directories{$_})) {
1122 my $oldpath = abs_path($directories{$_});
1129 $tmp_directories{$_} = $newpath;
1137 if (!file_name_is_absolute($ENV{$_})) {
1138 my $oldpath = abs_path($ENV{$_});
1145 $tmp_ENV{$_} = $newpath;
1156 $directories{$_} = $tmp_directories{$_};
1159 $ENV{$_} = $tmp_ENV{$_};
1250 my %opts = @_;
1254 my $fileornull = sub { $_[0] ? $_[0] : $null; };
1296 Test::More::subtest @_;