view release on metacpan or  search on metacpan

lib/Alvis/Logger.pm  view on Meta::CPAN

package Alvis::Logger;
use strict;
use warnings;


# Create a new logger object.  Options that may be specified include:
#	level [default 0]: only emit messages with priority less than
#		or equal to this (so that the default behaviour is to
#		be silent except for priority-zero messages, which are
#		really error messages).
#	stream [stderr]: where to write messages
#	
sub new {
    my $class = shift();
    #warn("new($class): \@_ = ", join(", ", map { "'$_'" } @_), "\n");
    my %options = ( level => 0, stream => \*STDERR, @_ );
    $options{level} = 0 if !defined $options{level};

    return bless {
	options => \%options,
    }, $class;