[ViewVC] Diff of: cvs/AnyEvent/lib/AnyEvent/Log.pm

Comparing AnyEvent/lib/AnyEvent/Log.pm (file contents):
Revision 1.5 by root, Wed Aug 17 22:03:03 2011 UTC vs.
Revision 1.6 by root, Wed Aug 17 22:34:11 2011 UTC

 =back
 =head1 CONFIGURATION FUNCTIONALITY
 None, yet, except for C<PERL_ANYEVENT_VERBOSE>, described in the L<AnyEvent> manpage.
+#TODO
 =over 4
-=item $ctx = AnyEvent::Log::ctx [$pkg]
+=item $ctx = AnyEvent::Log::cfg [$pkg]
-Returns the I<context> object for the given package name (or previously
+Returns a I<config> object for the given package name (or previously
-created package-less context). If no package name, or C<undef>, is given,
+created package-less configuration). If no package name, or C<undef>, is
-then it creates a new anonymous context that is not tied to any package.
+given, then it creates a new anonymous context that is not tied to any
+package.
 =cut
-sub ctx(;$) {
+sub cfg(;$) {
    my $name = shift;
    my $ctx = defined $name ? $CTX{$name} : undef;
-   unless ($ctx} {
+   unless ($ctx) {
       $ctx = bless {}, "AnyEvent::Log::Ctx";
-      $name = $ctx+0 unless defined $name;
+      $name = -$ctx unless defined $name;
-   $CTX{
+      $ctx->{name} = $name;
-   if (defined $name) {
-      my $ctx = {};
-      $CTX{$ctx+0} = $ctx;
+      $CTX{$name} = $ctx;
-   } else {
-      $CTX{
    }
+   $ctx
+}
+package AnyEvent::Log::Ctx;
+sub DESTROY {
+   # if only one member is remaining (name!) then delete this context
+   delete $CTX{$_[0]{name}}
+      if 1 == scalar keys %{ $_[0] };
 }
 1;
 =back

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