Prev

Next

Index-> contents reference index search external

Up-> cppad_swig library error error_message error_message_xam.pm

cppad_swig-> testing swig_xam.i library whats_new_2018

library-> module a_double vector a_fun sparse error xam.m4

error-> error_message

error_message-> error_message_xam.cpp error_message_xam.m error_message_xam.pm error_message_xam.py

error_message_xam.pm

Headings

package error_message_xam;
sub error_message_xam() {
     # check for standard perl programming conventions
     use strict;
     use warnings;
     #
     # load the Cppad Swig library
     use pm_cppad;
     #
     # initilaize return variable
     my $ok = 1;
     # ---------------------------------------------------------------------
     $ok = 0;
     eval { # try
          pm_cppad::error_message("test message");
     }; if( $@ ) { # catch
          my $stored_message = pm_cppad::error_message("");
          $ok = $stored_message eq "test message";
     }
     return( $ok  );
}