Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.

Odd inheritance behaviour 2 Comments More | Login | Reply /

 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • ...without seeing what you've actually done. Can you reproduce it with a small set of code and show that?
    --
    Ordinary morality is for ordinary people. -- Aleister Crowley

    • Sure...Each of these are in a seperate file:

      package A;
      use base 'Class::Accessor::Fast';
      __PACKAGE__->use_best_practice;

      package B;
      use base 'A';
      __PACKAGE__->mk_accessors(qw/foo/);

      package C;
      use base 'B';
      __PACKAGE__->mk_accessors(qw/bar/);

      package P;

      use C;

      In the test suite:

      use_ok('C') .... ok

      In a seperate test file:

      use_ok('P');

      Fails 'Can't find package method mk_accessors via package 'C'.

      On the other hand if I change P from 'use P' to 'require P' it works.

Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.