← Back to branch summary

~ubuntu-branches/ubuntu/trusty/librose-object-perl/trusty-proposed

« back to all changes in this revision

Viewing changes to lib/Rose/Object/MakeMethods.pm

  • Committer: Bazaar Package Importer
  • Author(s): Jonathan Yu
  • Date: 2010-02-11 21:27:22 UTC
  • mfrom: (1.1.6 upstream)
  • Revision ID: james.westby@ubuntu.com-20100211212722-wsb9vv3afszkk0xe
Tags: 0.858-1
* New upstream release
* Standards-Version 3.8.4 (no changes)

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Rose/Object/MakeMethods.pm
161
161
sub apparently_made_method
162
162
{
163
163
  my($class, $code) = @_;
 
164
 
164
165
  my($mm_class, $name) = $class->sub_identity($code);
165
166
  return 0  unless($class && $name);
166
 
  return (($mm_class eq $class && $name eq '__ANON__') ||
 
167
  # XXX: RT 54444 - The formerly constant "__ANON__" sub name looks
 
168
  # XXX: like this in newer versions of perl when running under the
 
169
  # XXX: debugger: "__ANON__[/usr/lib/perl5/.../Some/Module.pm:123]"
 
170
  return (($mm_class eq $class && $name =~ /^__ANON__/) ||
167
171
          $Made_Method_Custom{$mm_class}{$name}) ? 1 : 0;
168
172
}
169
173
 
185
189
          return  unless($cv->isa('B::CV'));
186
190
          @id = ($cv->GV->STASH->NAME, $cv->GV->NAME);
187
191
        };
188
 
        
 
192
 
189
193
        # Ignore errors
190
194
  }
191
195