#============================================================
# MyDocument
#============================================================
package MyDocument;
use Common;
@ISA = qw(Common);

use strict;

#===============================================
# Document 固有関数
#===============================================
sub Document       { return shift;                  }
sub Doc            { return shift;                  }

sub FilePath() { return shift->{'FilePath'}; };
sub SetFilePath
{
	my ($this, $path) = @_;
	return $this->{'FilePath'} = $path; 
};

#============================================================
#　コンストラクタ、デストラクタ
#============================================================
BEGIN { }

sub new
{
	my ($module, $path) = @_;
	my $this = {};
	bless $this;
	return $this;
}

sub DESTROY
{
	my $this = shift;
#	$this->SUPER::DESTROY(@_);
}

1;