Hi,

I have a number of object class's that work fine, however I am attempting to build a class that will inherite methods from its children, I have tried including the required methods in the ISA array, however the compiler keeps informing me that it 'cant locate object method method_name' in class test'

I am using the following code

use lib ('G:\Perl Live\OO Packages');
use Mailsort;

use strict;

my $file = 'J:\sample file.csv';
my $ob = new Mailsort($file);

#unable to call this method which is in class Mailsort_scj
$ob->update_database('DSA','a database');

print $ob->{DATABASE}."\n";
[download]

the header from package Mailsort is as

package Mailsort;
use lib ('G:\Perl Live\OO Packages');
require Exporter;
require Mailsort_scj;
require Filedetails;

use strict;
use Carp;

my @ISA = qw(Exporter Filedetails Mailsort_scj);

sub new{
     my ($proto,$type) =@_;

     my $typein = ref($type) || $type;

        my $params = new Mailsort_scj($typein);

    &initialise($params);

    bless ($params,$typein);

    return($params);
}
[download]

the header from class Mailsort_scj is as follows;

package Mailsort_scj;
require Exporter;
require Filedetails;

use strict;
use Carp;

my @ISA = qw(Exporter Filedetails Mailsort_scj);

my @EXPORT = qw(update_database
        update_options
        update_tntoptions
        update_inputformat
        create_scj
        update_Foreign_Addresses
        Redirect_Rejects);

sub new{
     my ($proto,$filein) = @_;

    my $type = ref($proto) || $proto;

     my $params = new Filedetails;
     $params->{FileName_IN} = $filein;

    &initialise($params);
    bless $params,$type;

    return $params;
}

sub update_database{
    my ($class,$type,$value) =  @_;

    my $valuein = ref($value) || $value;

    $class->{Database}{$type} = $valuein;
}
[download]

any pointers would be greatly appreciated; thanks Skywalker