Lines Matching refs:package

10   $package = shift;
13   $ {$package . "::OVERLOAD"}{dummy}++; # Register with magic by touching.
14   *{$package . "::()"} = \&nil; # Make it findable via fetchmethod.
21 	$ {$package . "::(" . $_} = $sub;
25       *{$package . "::(" . $_} = \&{ $sub };
28   ${$package . "::()"} = $fb; # Make it findable too (fallback only).
32   $package = (caller())[0];
35   $package->overload::OVERLOAD(@_);
39   $package = (caller())[0];
40   ${$package . "::OVERLOAD"}{dummy}++; # Upgrade the table
44       undef $ {$package . "::()"};
46       delete $ {$package . "::"}{"(" . $_};
52   my $package = shift;
53   $package = ref $package if ref $package;
54   $package->can('()');
66   my $package = shift;
67   $package = ref $package if ref $package;
69   ov_method mycan($package, '(""'), $package
70     or ov_method mycan($package, '(0+'), $package
71     or ov_method mycan($package, '(bool'), $package
72     or ov_method mycan($package, '(nomethod'), $package;
76   my $package = shift;
77   $package = ref $package if ref $package;
79   ov_method mycan($package, '(' . shift), $package;
85   my $package = ref $_[0];
86   return "$_[0]" unless $package;
99   my ($package, $meth) = @_;
100   return \*{$package . "::$meth"} if defined &{$package . "::$meth"};
102   foreach $p (@{$package . "::ISA"}) {