Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/warnings.pm

Lines Matching refs:category
55 Creates a new warnings category with the same name as the package where
60 Use the warnings category with the same name as the current package.
62 Return TRUE if that warnings category is enabled in the calling module.
65 =item warnings::enabled($category)
67 Return TRUE if the warnings category, C<$category>, is enabled in the
74 warnings category.
76 Return TRUE if that warnings category is enabled in the first scope
84 Use the warnings category with the same name as the current package.
86 If that warnings category has been set to "FATAL" in the calling module
89 =item warnings::warn($category, $message)
93 If the warnings category, C<$category>, has been set to "FATAL" in the
101 warnings category.
103 If that warnings category has been set to "FATAL" in the scope where C<$object>
114 =item warnings::warnif($category, $message)
118     if (warnings::enabled($category))
119       { warnings::warn($category, $message) }
327           { Croaker("Unknown warnings category '$word'")}
365           { Croaker("Unknown warnings category '$word'")}
393           { Croaker("Unknown warnings category '$word'")}
401     my $category ;
406         # check the category supplied.
407         $category = shift ;
408         if (ref $category) {
410                 if $category !~ /^([^=]+)=/ ;
411 	    $category = $1 ;
414         $offset = $Offsets{$category};
415         Croaker("Unknown warnings category '$category'")
419         $category = (caller(1))[0] ;
420         $offset = $Offsets{$category};
421         Croaker("package '$category' not registered for warnings")
431             last unless @DB::args && $DB::args[0] =~ /^$category=/ ;
449     Croaker("Usage: warnings::enabled([category])")
462     Croaker("Usage: warnings::warn([category,] 'message')")
475     Croaker("Usage: warnings::warnif([category,] 'message')")