So here I am humming a little tune, about how awesome DBIx::AnyDBD is and loading up a bunch of SQL in the __DATA__ sections of each of my modules, when I came across an anomaly: Perl supports polymorphic subroutines but uses the data section of the class where the method is found, not the data section of the class that the search for the method started in... This is problematic because you want to put the data for each module in the __DATA__ section of that module and have the one "base" subroutine use the __DATA__ sections of the appropriate subclass.

package One;


sub data {

    print $_ while <DATA>;

}



1;

__DATA__
here we have
the data section
of One.pm

package Two;

our @ISA = qw(One);

sub new {

    my $self = {};

    bless $self, __PACKAGE__;
}



1;

__DATA__
here we have the data section of
Two.pm

# and a script to use them:

use lib '.';

use One;
use Two;

my $two = Two->new;

$two->data;

### and the output:

$ perl script.pl 
here we have
the data section
of One.pm
[download]

Carter's compass: I know I'm on the right track when by deleting something, I'm adding functionality.