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";

##</code><code>##

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);
}

##</code><code>##

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;
}