Lines Matching refs:pkg
87 my $pkg = shift;
88 $pkg->TIESCALAR(@_);
94 my $pkg = shift;
95 if ($pkg->can('new') and $pkg ne __PACKAGE__) {
96 warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIESCALAR is missing");
97 $pkg->new(@_);
100 croak "$pkg doesn't define a TIESCALAR method";
105 my $pkg = ref $_[0];
106 croak "$pkg doesn't define a FETCH method";
110 my $pkg = ref $_[0];
111 croak "$pkg doesn't define a STORE method";