File Coverage

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

Criterion	Covered	Total	%
statement	19	19	100.0
branch	5	6	83.3
condition	3	6	50.0
subroutine	4	4	100.0
pod			n/a
total	31	35	88.5

package Data::Printer::Filter::Digest;
use strict;
use warnings;
use Data::Printer::Filter;

filter 'Digest::base' => \&_print_digest;

# these modules don't inherit from Digest::base but have the same interface:
filter 'Digest::MD2'  => \&_print_digest;
filter 'Digest::MD4'  => \&_print_digest;

sub _print_digest {
  my ($obj, $ddp) = @_;
  my $digest = $obj->clone->hexdigest;
  my $str = $digest;
  my $ref = ref $obj;

  if ( !exists $ddp->extra_config->{filter_digest}{show_class_name}
      || $ddp->extra_config->{filter_digest}{show_class_name} ) {
      $str .= " ($ref)";
  }

  if( !exists  $ddp->extra_config->{filter_digest}{show_reset}
    || $ddp->extra_config->{filter_digest}{show_reset}
   ) {
     if ($digest eq $ref->new->hexdigest) {
         $str .= ' [reset]';
     }
  }

  return $ddp->maybe_colorize($str, 'datetime', '#ffaaff');
}

1;

__END__