[perl #77690] warnings::enabled, ::warnif etc. provide no way to specify the number of call frames

# New Ticket Created by  Father Chrysostomos 
# Please include the string:  [perl #77690]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=77690 >


warnings::enabled, warnings::warnif, etc. allow me to specify a module name as a warnings category. It then uses Carp to determine what call frame to look at. But it provides no way to find out whether, say, uninitialized warnings are enabled in that same scope. If one could specify the number of call frames (as a number) somehow, that would be useful.

I’m willing to implement this myself, but I cannot think of a good way to extend the current API.

---
Flags:
    category=library
    severity=wishlist
---
Site configuration information for perl 5.13.4:

Configured by sprout at Sun Aug 29 17:21:22 PDT 2010.

Summary of my perl5 (revision 5 version 13 subversion 4 patch v5.13.4-30-g9b47cdd) configuration:
  Snapshot of: 9b47cddefd9b4a322e6382c8979ceeb2c3ac25c9
  Platform:
    osname=darwin, osvers=10.4.0, archname=darwin-thread-multi-2level
    uname='darwin pint.local 10.4.0 darwin kernel version 10.4.0: fri apr 23 18:28:53 pdt 2010; root:xnu-1504.7.4~1release_i386 i386 '
    config_args='-de -Dusedevel -Duseithreads'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=undef, use64bitall=undef, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include',
    optimize='-O3',
    cppflags='-no-cpp-precomp -fno-common -DPERL_DARWIN -no-cpp-precomp -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.2.1 (Apple Inc. build 5664)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='env MACOSX_DEPLOYMENT_TARGET=10.3 cc', ldflags =' -fstack-protector -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib
    libs=-ldbm -ldl -lm -lutil -lc
    perllibs=-ldl -lm -lutil -lc
    libc=/usr/lib/libc.dylib, so=dylib, useshrplib=false, libperl=libperl.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=bundle, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags=' -bundle -undefined dynamic_lookup -L/usr/local/lib -fstack-protector'

Locally applied patches:
    

---
@INC for perl 5.13.4:
    /usr/local/lib/perl5/site_perl/5.13.4/darwin-thread-multi-2level
    /usr/local/lib/perl5/site_perl/5.13.4
    /usr/local/lib/perl5/5.13.4/darwin-thread-multi-2level
    /usr/local/lib/perl5/5.13.4
    /usr/local/lib/perl5/site_perl
    .

---
Environment for perl 5.13.4:
    DYLD_LIBRARY_PATH (unset)
    HOME=/Users/sprout
    LANG=en_US.UTF-8
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/X11/bin:/usr/local/bin
    PERL_BADLANG (unset)
    SHELL=/bin/bash

• [perl #77690] warnings::enabled, ::warnif etc. provide no way to specify the number of call frames by Father Chrysostomos