package SolarCell
@ISA = qw()

sub SetLightIntensity
my ($this, $F) = @_;

sub SetTemplature
my ($this, $T) = @_;

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

sub DESTROY
sub DESTROY { my $this = 

sub ReadIVData
my ($this, $path, $VLabel, $ILabel, $JLabel, $nMinimumLabels, $ReadCheckFunc) = @_;
return undef if(!$this->{CSV}->Read($path, undef, undef, $nMinimumLabels, $ReadCheckFunc));
return ($this->{pV}, $this->{pI}, $this->{pJ}, $this->{nData});

sub Analyze
my ($this, $IsPrint) = @_;

sub WriteAnalyzeCSV
my ($this, $path) = @_;
return undef;
return 1;