File Coverage

blib/lib/WWW/Shopify/Liquid/Dialect/Shopify/Filter/MoneyWithoutTrailingZeros.pm
Criterion Covered Total %
statement 9 16 56.2
branch 0 4 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 25 48.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 1     1   291 use strict;
  1         2  
  1         22  
3 1     1   4 use warnings;
  1         2  
  1         28  
4              
5             package WWW::Shopify::Liquid::Dialect::Shopify::Filter::MoneyWithoutTrailingZeros;
6 1     1   4 use base 'WWW::Shopify::Liquid::Dialect::Shopify::Filter::Money';
  1         3  
  1         167  
7             sub operate {
8 0 0   0 0   return undef unless $_[2];
9 0           my $format = $_[1]->{shop}->{money_format};
10 0 0         $format = '$ {{ amount }' unless $format;
11 0           my $amount = sprintf('%.2f', $_[2] / 100.0);
12 0           $format =~ s/\{\{\s*amount\s*\}\}/$amount/;
13 0           $format =~ s/[\.\,]00//;
14 0           return $format;
15             }
16              
17             1;