package A;
use strict;

use B;
use commonRoutine;

do ('LogMe.pl');

##
# Constructor.  Initialize instance of object.
#
# @param $cacheFileName [in] Name of cache file.
#

# @return Instance of object or undef if failure.
#
sub new
{
    print "A->new()\n";
    my ($class, $cacheFileName) = @_;
    my $this = bless({}, ref($class) || $class);

    # Initialize member variables.
    $this->{initialized} = 1;
    $this->{lastFlushTime} = time();

    $this->_func1();
    return $this;
}

##
# Destructor.  Clean up object.
#
sub DESTROY
{
    my $this = shift;
 
}

sub _func1{
	LogMe();
	print "me\n";
}

1