Help for this page

Select Code to Download


  1. or download this
    eval{ $CY1->set_value("INI","lf2"); };
ok( $@ eq "Can't Change Internal Parameter" , "Catch attempted changin
+g of internal parameter");
  2. or download this
    sub set_value{
  my ($self,$section,$para,$value)=@_;
...
  croak"Non-Existent parameter" if !exists $self->{$section}->{$para};
  $self->{$section}->{$para}->[0]=$value;
}