File Coverage

blib/lib/WWW/Shopify/Liquid/Tag/Free.pm
Criterion Covered Total %
statement 9 19 47.3
branch 0 2 0.0
condition n/a
subroutine 3 7 42.8
pod 0 4 0.0
total 12 32 37.5


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 30     30   169 use strict;
  30         54  
  30         882  
3 30     30   152 use warnings;
  30         50  
  30         1307  
4              
5             package WWW::Shopify::Liquid::Tag::Free;
6 30     30   152 use base 'WWW::Shopify::Liquid::Tag';
  30         51  
  30         6598  
7 0     0 0   sub is_free { return 1; }
8 0 0   0 0   sub abstract { my $package = ref($_[0]) ? ref($_[0]) : $_[0]; return ($package eq __PACKAGE__); }
  0            
9 0     0 0   sub tokens { return ($_[0], map { $_->tokens } grep { defined $_ } (@{$_[0]->{arguments}})); }
  0            
  0            
  0            
10             sub new {
11 0     0 0   my ($package, $line, $tag, $arguments) = @_;
12 0           my $self = { line => $line, core => $tag, arguments => $arguments };
13 0           return bless $self, $package;
14             }
15              
16             1;