| SRU documentation | Contained in the SRU distribution. |
SRU::Utils - Utility functions for SRU
use SRU::Utils qw( error );
return error( "error!" );
This is a set of utility functions for the SRU objects.
Sets the $SRU::Error message.
| SRU documentation | Contained in the SRU distribution. |
package SRU::Utils; use strict; use warnings; use base qw( Exporter ); our @EXPORT_OK = qw( error );
sub error { if ( $_[0] ) { $SRU::Error = $_[0]; }; return; } 1;