Lines Matching refs:_
27 my %opts = @_;
108 return compare_text(@_, sub {
109 $_[0] =~ s/\R//g;
110 $_[1] =~ s/\R//g;
111 return $_[0] ne $_[1];
116 my ($file, $pattern) = @_;
118 $_= join('', <DATA>);
125 my ($desc, $file, $pattern, $expected) = @_;
132 my ($cert, $pattern, $expected, $name) = @_;
140 my ($cert, $expect) = @_;
145 my ($cert, $expect) = @_;
150 my ($cert, $expect) = @_;
156 grep { not $seen{$_}++ } @_;
160 my $filename = shift @_;
168 my ($cert, $expected, $exts, $name) = @_;
179 my ($f, $field) = @_;
192 return get_field(@_, "Issuer");
196 return get_field(@_, "Not Before");
202 get_not_before(@_),
207 return get_field(@_, "Not After ");
213 get_not_after(@_),
