package ABC;

$ABC::VERSION = '0.02';

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
require DynaLoader;
require AutoLoader;

@ISA = qw(Exporter AutoLoader DynaLoader);

# Items to export into callers namespace by default.
@EXPORT = qw(
	     new_time_var
	     dl_ascii_to_date
	     dl_ascii_to_time
	     dl_close_cache
);
@EXPORT_OK = qw();

bootstrap ABC $VERSION;

##</code><code>##

package PQR;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
require AutoLoader;
use ABC;

$PQR::VERSION = $ABC::VERSION;

@ISA = qw(Exporter AutoLoader);
@EXPORT = qw(
	     new_time_var
	     dl_ascii_to_date
	     dl_ascii_to_time
	     dl_close_cache
            );
            
@EXPORT_OK = qw();

sub new_time_var
{
    return ABC::new_time_var(@_);
}

sub dl_ascii_to_date
{
    return ABC::dl_ascii_to_date(@_);
}

sub dl_ascii_to_time
{
    return ABC::dl_ascii_to_time(@_);
}

sub dl_close_cache
{
    return ABC::dl_close_cache(@_);	
}

##</code><code>##

<new_time_var>()
<dl_ascii_to_date>(<string>)
<dl_ascii_to_time>(<string>, <dtp>)
<dl_close_cache>(<dcp>)

##</code><code>##

>/u/agarwsun/test> perl -wc test.pl