File Coverage

blib/lib/WWW/Shopify/Liquid/Tag/Free.pm
Criterion Covered Total %
statement 15 15 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 22 26 84.6


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 21     21   126 use strict;
  21         34  
  21         711  
3 21     21   106 use warnings;
  21         30  
  21         778  
4              
5             package WWW::Shopify::Liquid::Tag::Free;
6 21     21   94 use base 'WWW::Shopify::Liquid::Tag';
  21         40  
  21         3787  
7 92     92 0 368 sub is_free { return 1; }
8 115 50   115 0 254 sub abstract { my $package = ref($_[0]) ? ref($_[0]) : $_[0]; return ($package eq __PACKAGE__); }
  115         400  
9             sub new {
10 41     41 0 96 my ($package, $line, $tag, $arguments) = @_;
11 41         148 my $self = { line => $line, core => $tag, arguments => $arguments };
12 41         180 return bless $self, $package;
13             }
14              
15             1;