Lines Matching +refs:org +refs:category
119 #this next bit deals with an init_and_watch case where a category
135 my($class, $category, $level) = @_;
137 print("_new: $class/$category/", defined $level ? $level : "undef",
140 die "usage: __PACKAGE__->_new(category)" unless
141 defined $category;
143 $category =~ s/::/./g;
146 if(exists $LOGGERS_BY_NAME->{$category}) {
148 return $LOGGERS_BY_NAME->{$category};
152 category => $category,
164 $LOGGERS_BY_NAME->{$category} = $self;
196 print "set_output_methods: $self->{category}/$level\n" if _INTERNAL_DEBUG;
198 #collect the appenders in effect for this category
242 print(" Setting [$self] $self->{category}.$levelname to ",
293 print("coderef: \$logger->{category}\n") if _INTERNAL_DEBUG;
311 \$logger->{category},
487 if($logger->{category} eq "") {
492 if(defined $LOGGERS_BY_NAME->{$logger->{category}}->{level}) {
493 return $LOGGERS_BY_NAME->{$logger->{category}}->{level};
509 if($logger->{category} eq "") {
515 my $parent_class = parent_string($logger->{category});
554 my($class, $category) = @_;
560 return $ROOT_LOGGER if $category eq "";
562 my $logger = $class->_new($category);
664 $_[0] = $LOGGERS_BY_NAME->{$_[0]->{category}} if
768 print "$lclevel: ($_[0]->{category}/$_[0]->{level}) [@_]\n"
1083 Kevin Goess, <cpan@goess.org>