package Lady::Lady_TM;

#use strict;

sub new ($){

	my $class = shift;

	my $self = {};
	
	bless $self, $class;
	
	$self->init($_[0]);
	
    return $self;

}
sub init($){
	
	my $self = shift;

	$self{'index_path'} = shift;

return;
}