File Coverage

blib/lib/WWW/Shopify/Liquid/Dialect/Web/Tag/JavascriptString.pm
Criterion Covered Total %
statement 9 17 52.9
branch n/a
condition n/a
subroutine 3 6 50.0
pod 0 3 0.0
total 12 26 46.1


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 1     1   350 use strict;
  1         3  
  1         23  
3 1     1   4 use warnings;
  1         2  
  1         31  
4              
5             package WWW::Shopify::Liquid::Dialect::Web::Tag::JavascriptString;
6 1     1   4 use base 'WWW::Shopify::Liquid::Tag::Enclosing';
  1         2  
  1         172  
7              
8 0     0 0   sub min_arguments { 0; }
9 0     0 0   sub max_arguments { 0; }
10              
11             sub operate {
12 0     0 0   my ($self, $hash, $contents) = @_;
13 0           $contents =~ s/\n/\\n/g;
14 0           $contents =~ s/"/\\"/g;
15 0           $contents =~ s/{/" + /g;
16 0           $contents =~ s/}/ + "/g;
17 0           return "\"$contents\"";
18             }
19              
20              
21              
22             1;