logger —
Interchange 5.9.0:
Source: dist/strap/config/logger.tag
Lines: 32
UserTag logger Order name file UserTag logger addAttr UserTag logger Routine <<EOR sub { my ($name, $file, $opt) = @_; use vars qw/$Tag/; my $log = sub { my $msg = errmsg(@_); Log( $msg, { file => $file }); return; }; my $die = sub { my $msg = errmsg(@_); $Tag->error( { name => $name, set => $msg }); Log( "died: $msg", { file => $file }); return; }; my $warn = sub { my $msg = errmsg(@_); $Tag->warnings( $msg ); Log( $msg, { file => $file }); return; }; return($log, $die, $warn); } EOR UserTag logger Documentation <<EOD Use like: my ($log, $die, $warn) = $Tag->logger('munge_mv_order', 'logs/munge.log'); EOD