}
BEGIN { require './test.pl'; }
-plan tests => 244;
+plan tests => 254;
while (<DATA>) {
chomp;
like( $@, qr/Can't find an opnumber for/, $keyword );
}
else {
- is( "(".prototype("CORE::".$keyword).")", $proto, $keyword );
+ is(
+ "(".(prototype("CORE::".$keyword) // 'undef').")", $proto,
+ $keyword
+ );
}
}
__PACKAGE__ ()
__DATA__ undef
__END__ undef
+__SUB__ ()
+AUTOLOAD undef
+BEGIN undef
CORE unknown
+DESTROY undef
+END undef
+INIT undef
+CHECK undef
abs (_)
accept (**)
alarm (_)
bind (*$)
binmode (*;$)
bless ($;$)
+break ()
caller (;$)
chdir (;$)
chmod (@)
eof (;*)
eq undef
eval undef
+evalbytes (_)
exec undef
exists undef
exit (;$)
exp (_)
+fc (_)
fcntl (*$$)
fileno (*)
flock (*$)
getppid ()
getpriority ($$)
getprotobyname ($)
-getprotobynumber ($)
+getprotobynumber ($;)
getprotoent ()
getpwent ()
getpwnam ($)
getsockname (*)
getsockopt (*$$)
given undef
-glob undef
+glob (_;)
gmtime (;$)
goto undef
grep undef
listen (*$)
local undef
localtime (;$)
-lock (\[$@%*])
+lock (\[$@%&*])
log (_)
lstat (;*)
lt undef
ne undef
next undef
no undef
-not ($)
+not ($;)
oct (_)
open (*;$@)
opendir (*$)
package undef
pipe (**)
pop (;+)
-pos undef
+pos (;\[$*])
print undef
printf undef
-prototype undef
+prototype ($)
push (+@)
q undef
qq undef
rmdir (_)
s undef
say undef
-scalar undef
+scalar ($)
seek (*$$)
seekdir (*$)
-select (;*)
+select undef
semctl ($$$$)
semget ($$$)
semop ($$)
srand (;$)
stat (;*)
state undef
-study undef
+study (_)
sub undef
substr ($$;$$)
symlink ($$)
uc (_)
ucfirst (_)
umask (;$)
-undef undef
+undef (;\[$@%&*])
unless undef
unlink (@)
-unpack ($;$)
+unpack ($_)
unshift (+@)
untie (\[$@%*])
until undef