I can think of a few reasons why this might fail.

First, I don't see any require Foo nor require Bar (or replace require with use).

Second, you can replace @ISA= qw(Base) with use base qw(Base) which has some advantages. But I have more important reasons for mentioning that: On file systems that ignore upper- vs. lower-case in file names, use Base could end up loading base.pm instead of Base.pm, which would also break your code.

Second, you can replace @ISA= qw(Base) with use base qw(Base)

This sounds very interesting. Could you point me to a man page about this (or explain a little more about what Perl mechanism that makes it work)?

/J

    "On file systems that ignore upper- vs. lower-case in file names, use Base could end up loading base.pm instead of Base.pm..."

Uhm, no.

If the file system is case-insensitive, then Base.pm == base.pm.

-- Dave

Perhaps you neglect to consider that require and use search more than one directory. If Base.pm is in your current directory, then base.pm from the standard Perl install will be found and used instead of your file.

        - tye (but my friends call me "Tye")

package Base;
sub method1 {
    # Insert code here
    print "Called from class: ", shift, "\n";
};

package Foo;
@ISA = qw(Base);

package Bar;
@ISA = qw(Base);

package main;

foreach my $classname qw(Foo Bar) {
    $classname->method1;
}

## Output ##

Called from class: Foo
Called from class: Bar
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

There's a reason I was using four files. If you have everything in one file, of course it works cause method1 is scoped within the file. When you have it across several files, it breaks down. :(

It's not a scoping issue:

foreach my $classname qw(Foo Bar Oops) {
    $classname->method1;
}

## output ##

Can't locate object method "method1" via package "Oops" at C:\Projects
+\GPerl\Test\2.pl line 16.
Called from class: Foo
Called from class: Bar
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print