Lines Matching refs:pkg
192 my $pkg = shift;
193 $pkg->TIEHASH(@_);
199 my $pkg = shift;
200 if (defined &{"${pkg}::new"}) {
201 warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing");
202 $pkg->new(@_);
205 croak "$pkg doesn't define a TIEHASH method";
210 my $pkg = ref $_[0];
211 croak "$pkg doesn't define an EXISTS method";