File Coverage

blib/lib/Data/Printer/Filter/VSTRING.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	2	4	50.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	0	1	0.0
total	30	35	85.7

package Data::Printer::Filter::VSTRING;
use strict;
use warnings;
use Data::Printer::Filter;
use Data::Printer::Common;

filter 'VSTRING' => \&parse;

sub parse {
    my ($vstring, $ddp) = @_;
    my $string = '';

    # The reason we don't simply do:
    #   use version 0.77 ();
    # is because it was causing some issues with UNIVERSAL on Perl 5.8 and
    # some versions of version.pm. So now we do it on runtime on the filter.
    # ->parse() will raise an error unless version.pm >= 0.77.
    my $error = Data::Printer::Common::_tryme(sub {
        require version;
        $string = version->parse($$vstring)->normal;
    });
    $string = 'VSTRING object (unable to parse)' if $error;

    if ($ddp->show_tied and my $tie = ref tied $$vstring) {
        $string .= " (tied to $tie)";
    }
    return $ddp->maybe_colorize($string, 'vstring');
};

1;