File Coverage

blib/lib/WWW/Shopify/Liquid/Filter/MD5.pm
Criterion Covered Total %
statement 18 19 94.7
branch 2 4 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 26 30 86.6


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   14895 use strict;
  37         112  
  37         1114  
3 37     37   236 use warnings;
  37         99  
  37         1426  
4              
5 37     37   275 package WWW::Shopify::Liquid::Filter::MD5; use base 'WWW::Shopify::Liquid::Filter';
  37         104  
  37         3707  
6 37     37   290 use Digest::MD5 qw(md5_hex);
  37         99  
  37         2499  
7 37     37   276 use JSON qw(to_json);
  37         103  
  37         355  
8             sub operate {
9 1     1 0 3 my ($self, $hash, $operand, @arguments) = @_;
10 1 50       4 $operand = '' unless defined $operand;
11 1 50       7 return md5_hex(to_json($operand, { canonical => 1 })) if ref($operand);
12 0           return md5_hex($operand);
13             }
14              
15             1;