package NextTrain
@ISA = qw()

sub BEGIN

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

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

sub Zen2Han
my ($str) = @_;
return $str;

sub Mark
return shift->{Mark};

sub pMark
return \(shift->{Mark});

sub pNoteMarkArray
return shift->{pNoteMarkArray};

sub NoteMarkArray
return @$pNoteMarkArray;

sub pNoteMarkOriginal
return shift->pNoteMarkArray()->[0];

sub pNoteMark
my ($this, $idx) = @_;
return $this->pNoteMarkArray()->[$idx];

sub NoteMark
my ($this, $idx) = @_;
return %$pNoteMark;

sub pNoteHash
return shift->{pNoteHash};

sub NoteHash
return %$pNoteHash;

sub InitializeNotes
my ($this) = @_;

sub ConverteMark
my ($this, $note) = @_;
return $newnote;

sub OpenTableFile
my ($this, $path, $mode) = @_;
return undef;
return $out;

sub CloseTableFile
my ($this) = @_;

sub OpenTextFile
my ($this, $path, $mode) = @_;
return undef;
return $in;

sub CloseTextFile
my ($this) = @_;

sub MakeTitleFromFileName
my ($this, $FileName) = @_;
return $FileName;