Lines Matching refs:method

159   my $method = $BB::AUTOLOAD;
160   my $msg = "B: In $method, $c";
161   eval "sub $method { \$msg }";
162   goto &$method;
166   my $method = $C::AUTOLOAD;
167   my $msg = "C: In $method, $c";
168   eval "sub $method { \$msg }";
169   goto &$method;
191   my $method = $::AUTOLOAD;
193   *$::AUTOLOAD = sub { "new B: In $method, $c" };
230 like ($@, qr/^\QCan't locate object method "foo" via package "E::B" at/);
235 like ($@, qr/^\QCan't locate object method "foo" via package "E::D" (perhaps /);
241 like ($@, qr/^\QCan't locate object method "foo" via package "E::F" at/);
254    ::is $ret[0], $o, 'object passed to SUPER::method';
255    ::is $ret[1], 'whatever', 'argument passed to SUPER::method';
258        @ret = $o->SUPER'method('whatever');
262    @ret = Saab->SUPER::method;
264    @ret = OtherSaab->SUPER::method;
271    is eval { (main->SUPER::method)[0] }, 'main',
428     sub method { 1 }
526      qr/^Can't call method "new" without a package or object reference/,
534      qr/^Can't call method "new" without a package or object reference/,
561     'method call on empty string';
570      qr/^Can't call method "squeak" without a package or object reference/,
575     'method call on \*typeglob';
580   '*glob->method is equiv to (\*glob)->method';
581 sub { $_[0] = *STDOUT; is $_[0]->self, \$::h{k}, '$pvlv_glob->method' }