The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;