File Coverage

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

Criterion	Covered	Total	%
statement	19	20	95.0
branch	3	4	75.0
condition	6	9	66.6
subroutine	5	5	100.0
pod	0	1	0.0
total	33	39	84.6

package Data::Printer::Filter::REF;
use strict;
use warnings;
use Data::Printer::Filter;
use Scalar::Util ();

filter 'REF' => \&parse;

sub parse {
    my ($ref, $ddp) = @_;

    my $string = '';
    # we only add the '\' if it's not an object
    if (!Scalar::Util::blessed($$ref) && (ref $$ref eq 'REF' || ref $$ref eq 'SCALAR' || ref $$ref eq 'VSTRING')) {
        $string .= '\\ ';
    }
    $string .= $ddp->parse($$ref);

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

    return $string;
};

1;