# default exported
our @EXPORT_OK = qw(
  stringformat new_from_db new_from_string from_string epoch_dt now
  $TIMEZONE $FORMAT $LOCALE
);

# default format scope as $SECANA::TimeString::FORMAT
our $FORMAT   = '%Y%m%d%H%M%S' if(! defined $FORMAT);

##</code><code>##

use lib $ENV{'SECANAROOT'}."/lib";
use SECANA::TimeString qw($FORMAT);
$FORMAT   = '%a %Y-%m-%d %H:%M:%S %z';
print SECANA::TimeString::now().'\n';

Wed 2008-09-10 10:20:10 +0200

##</code><code>##

use lib $ENV{'SECANAROOT'}."/lib";
use SECANA::TimeString;
$SECANA::TimeString::FORMAT = '%a %Y-%m-%d %H:%M:%S %z';
print SECANA::TimeString::now().'\n';

20080910102010

##</code><code>##

This comes independently of using the exporter
Name "SECANA::TimeString::FORMAT" used only once: \
possible typo at ./test-timestring.pl line 17.