package TokyuText
@ISA = qw()

sub BEGIN

sub new
my ($module, $App) = @_;
return $this;

sub DESTROY
my $this = shift;
#	$this->SUPER::DESTROY(

sub InitializeNotes
my ($this) = @_;

sub SplitMinites
my ($this, $line) = @_;
return ($note1, $min, $note2);

sub ReadAllNotes
my ($this, $pInputFiles) = @_;

sub ReadNotes
my ($this, $idx, $InFile) = @_;
return;
return;

sub GetModifiedDate
my ($this, $FileName) = @_;
return '';
return $line;

sub WriteNotes
my ($this, $out) = @_;

sub MakeTimeTable
my ($this, $pInputFiles, $pDayKey, $OutputFile) = @_;
return if(!defined $out);
return if(!defined $in);