view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

        - improve ISA detection in perl 5.8 without MRO::Compat

0.99_004 2018-05-12
    BUG FIXES:
        - fix tests on win32

0.99_003 2018-05-11
    BUG FIXES:
        - fix test plan issue on some versions of Test::More
        - die from caller perspective on filter error
        - drop support for Sort::Naturally::XS

0.99_002 2018-05-10
    BUG FIXES:
        - fix tests when bogus RC file is present
        - fix colored tests on travis
        - fix refcount test on perls <= 5.12
        - reset internal state after parsing
        - when scouting for methods, ensure GVs are named
        - synced p() and np() code so they behave exactly the same
        - fix use_prototypes => 0

lib/Data/Printer/Common.pm  view on Meta::CPAN

        "\a" => '\a',  # alert (bell)
    );
    foreach my $k ( keys %escaped ) {
        $string =~ s/$k/$ddp->maybe_colorize($escaped{$k}, 'escaped', undef, $src_color)/ge;
    }
    return $string;
}

sub _initialize_nsort {
    return 'Sort::Key::Natural'  if $INC{'Sort/Key/Natural.pm'};
    return 'Sort::Naturally'     if $INC{'Sort/Naturally.pm'};
    return 'Sort::Key::Natural'  if !_tryme('use Sort::Key::Natural; 1;');
    return 'Sort::Naturally'     if !_tryme('use Sort::Naturally; 1;');
    return 'core';
}

sub _nsort {
    if (!$nsort_initialized) {
        my $nsort_class = _initialize_nsort();
        if ($nsort_class eq 'Sort::Key::Natural') {
            $nsort_initialized = \&{ $nsort_class . '::natsort' };
        }
        elsif ($nsort_class ne 'core') {