[ViewVC] Diff of: cvs/AnyEvent-MP/MP/Kernel.pm

Comparing AnyEvent-MP/MP/Kernel.pm (file contents):
Revision 1.28 by root, Sat Aug 29 16:48:18 2009 UTC vs.
Revision 1.29 by root, Sun Aug 30 09:24:09 2009 UTC

 The default simply logs the message to STDERR.
 =cut
+our $WARNLEVEL = exists $ENV{PERL_ANYEVENT_MP_WARNLEVEL} ? $ENV{PERL_ANYEVENT_MP_WARNLEVEL} : 5;
 our $WARN = sub {
+   return if $WARNLEVEL < $_[0];
    my ($level, $msg) = @_;
    $msg =~ s/\n$//;
    printf STDERR "%s <%d> %s\n",
           (POSIX::strftime "%Y-%m-%d %H:%M:%S", localtime time),
           $level,
           $msg;
 };
+=item $AnyEvent::MP::Kernel::WARNLEVEL [default 5 or $ENV{PERL_ANYEVENT_MP_WARNLEVEL}]
+The maximum level at which warning messages will be printed to STDERR by
+the default warn handler.
+=cut
 sub load_func($) {
    my $func = $_[0];
    unless (defined &$func) {
 sub snd_on($@) {
    my $node = shift;
    snd $node, snd => @_;
 }
-=item eval_on $node, $string
+=item eval_on $node, $string[, @reply]
-Evaluates the given string as Perl expression on the given node.
+Evaluates the given string as Perl expression on the given node. When
+@reply is specified, then it is used to construct a reply message with
+C<"$@"> and any results from the eval appended.
 =cut
-sub eval_on($@) {
+sub eval_on($$;@) {
    my $node = shift;
    snd $node, eval => @_;
 }
 sub kil(@) {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines