package Egg::Log::STDERR;
#
# Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
#
# $Id: STDERR.pm 337 2008-05-14 12:30:09Z lushe $
#
use strict;
use warnings;
our $VERSION= '3.01';
sub new { bless [], $_[0] }
sub error { shift; _print('ERROR' , @_) }
sub debug { shift; _print('DEBUG' , @_) }
sub info { shift; _print('INFO' , @_) }
sub notice { shift; _print('NOTICE', @_) }
sub _print {
my $lebel= shift;
my $msg= $_[0] ? ($_[1] ? join("\n", @_): $_[0]): 'N/A';
$msg.= "\n" unless $msg=~m{\n$};
print STDERR "${lebel}: $msg";
}
1;
__END__
=head1 NAME
Egg::Log::STDERR - Log message is output to STDERR.
=head1 DESCRIPTION
The log message is output to STDERR.
The object of this module can be acquired in the log method of the project object.
my $log= $project->log;
=head1 METHODS
=head2 new
Constructor.
=head2 error ([MESSAGE_STR])
MESSAGE_STR is output putting up ERROR to the head.
=head2 debug ([MESSAGE_STR])
MESSAGE_STR is output putting up DEBUG to the head.
=head2 info ([MESSAGE_STR])
MESSAGE_STR is output putting up INFO to the head.
=head2 notice ([MESSAGE_STR])
MESSAGE_STR is output putting up NOTES to the head.
=head1 SEE ALSO
L<Egg::Release>,
=head1 AUTHOR
Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2008 Bee Flag, Corp. E<lt>L<http://egg.bomcity.com/>E<gt>.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.6 or,
at your option, any later version of Perl 5 you may have available.
=cut