DB::Skip - make the perl debugger skip statements in given packages or

    version 1.132980

        use DB::Skip pkgs => [ qw( Marp ), qr/^Mo/ ], subs => [qw( main::skip )];

        my $meep = skip();
        $meep = Marp::skip();
        $meep = Moop::skip();
        $meep = debug();

        sub skip { 1 }
        sub debug { 4 }

        package Marp;
        sub skip { 2 }

        package Moop;
        sub skip { Meep::debug(); 3 }

        package Meep;
        sub debug { 3 }

    The Perl debugger will skip over all the functions named skip(), since
    they are excluded by the parameters passed to DB::Skip. However
    functions named debug() will be treated as normal.

    The perl debugger is a wonderful tool and offers you many options to get
    to where you want to be in your code. However sometimes you want to just
    cruise through it.

    This can be somewhat frustrating if you're using modules like Moo that
    insert a lot of busywork functions that are necessary for execution, but
    obscure the actual flow in the debugger.

    Loading this module in your code will augment the debugger's main
    function with one that silently ignores statements when their package or
    sub matches any of the given parameters.

    Note that this only concerns statements directly within the parameters.
    Statements in subs called within ignored statements will still be picked
    up by the debugger, as long as they do not match any of the exclusion

            pkgs => [ 'My::Mod', qr/^Mine/ ],
            subs => [ 'MyMod::sub', qr/::my_sub_/ ],

    This class method can be called either implicitly via use or directly.
    On first invocation the original reference to the DB::DB sub-routine is
    stored in a class singleton and later used to invoke the original
    debugger functionality for statements that did not match the skip

    It expects a hash as parameters, with two optional keys: pkgs and subs.
    The value of the key pkgs is used to match for packages to be skipped,
    while the value of the key subs is used to match for fully qualified sub
    names (i.e. Package::subname) to be skipped.

    Both of these expect an array reference as value, with the array
    containing either strings or regexes. Strings are used to compare
    directly to the package or sub name, by way of hash lookup. Regexes are
    iterated over and matched with the package or sub name until a match is
    found and thus the statement skipped, or no regexes are left.

    Repeated calls of this method will remove the last set of parameters and
    install a new one.

        my $old_db_sub_ref = DB::Skip->old_db;
        DB::Skip->old_db( \&DB::DB );

    This class method is a minimal accessor to a class singleton, containing
    the original DB function of the currently loaded debugger. The singleton
    is initialized when import is called the first time, so you can retrieve
    the sub reference at any point after that.

    Alternatively you can also set it with this method at any given point,
    before or after calling import. If you set the singleton before calling
    import, then import not overwrite the one you set and use your reference
    instead. If you set it after calling import, import will start using
    your code reference from that point on forward.

  Bugs / Feature Requests
    Please report any bugs or feature requests through the issue tracker at
    <>. You will be
    notified automatically of any progress on your issue.

  Source Code
    This is open source software. The code repository is available for
    public review and contribution under the terms of the license.


      git clone

    Christian Walde <>

    Christian Walde has dedicated the work to the Commons by waiving all of
    his or her rights to the work worldwide under copyright law and all
    related or neighboring legal rights he or she had in the work, to the
    extent allowable by law.

    Works under CC0 do not require attribution. When citing the work, you
    should not imply endorsement by the author.