package TokyuWeb
@ISA = qw()

sub BEGIN

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

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

sub InitializeNotes
my ($this) = @_;

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

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

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

sub Get
my ($this, $URL) = @_;
return get($URL);
return JFile->new()->ReadFile($URL, "sjis");

sub SimplifyHTML
my ($this, $Content) = @_;
return ($Content, $PageTitle, $ModifiedDate);

sub SplitMinites
my ($this, $line) = @_;
return ($note, $min, @mins);

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