File Coverage

blib/lib/WWW/Shopify/Liquid/Dialect/Web/Tag/Form.pm
Criterion Covered Total %
statement 9 15 60.0
branch 0 2 0.0
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   297 use strict;
  1         2  
  1         22  
3 1     1   4 use warnings;
  1         2  
  1         27  
4              
5             package WWW::Shopify::Liquid::Dialect::Web::Tag::Form;
6 1     1   5 use base 'WWW::Shopify::Liquid::Tag::Enclosing';
  1         1  
  1         170  
7              
8 0     0 0   sub min_arguments { return 1; }
9 0     0 0   sub max_arguments { return 1; }
10              
11             sub process {
12 0     0 0   my ($self, $hash, $action, $pipeline) = @_;
13 0           my $result = $self->{arguments}->[0]->$action($pipeline, $hash);
14 0 0         return $self if blessed($result);
15 0           return '';
16             }
17              
18              
19              
20             1;