view release on metacpan or  search on metacpan

lib/Multi/Dispatch.pm  view on Meta::CPAN

                }
                else {
                    \$Multi::Dispatch::closed{'$keyword'}{'$name'}{$target_package} = $noncontiguous;
                }
        };
        if ($export) {
            $BEGIN = $ISOLATION_TEST = q{};
        }

        my $annotator = $^H{'Multi::Dispatch annotate'}
                            ? q{ UNITCHECK { Multi::Dispatch::_annotate(__PACKAGE__, __FILE__) } }
                            : q{};

        my $installer = qq{
            $BEGIN {
                no strict 'refs';
                $ISOLATION_TEST
                my \$redefining = $redispatches;
                if (*$target_name {CODE}) {
                    my \$info = \$Multi::Dispatch::dispatcher_info_for{*$target_name {CODE}};
                    if (!\$info) {