Lines Matching refs:name
69 my($ret,$name,$args);
70 while(!(($ret,$name,$args)=
81 # print "found $ret $name($args) in $file\n";
83 croak "$name declared twice! ($_)"
84 if exists $::Hooks{$name}->{declared};
85 $::Hooks{$name}->{declared}=$file;
86 $::Hooks{$name}->{ret}=$ret;
87 $::Hooks{$name}->{args}=$args;
91 my($type,$name)=($1 ? "OPTIONAL $2" : $2,$3);
93 # print "found $name $type in $file\n";
95 croak "$name implemented twice ($::Hooks{$name}->{implemented} and $file) ($_)"
96 if exists $::Hooks{$name}->{implemented};
97 $::Hooks{$name}->{implemented}=$file;
98 $::Hooks{$name}->{type}=$type;