File Coverage

blib/lib/WWW/Shopify/Liquid/Tag.pm
Criterion Covered Total %
statement 22 26 84.6
branch 1 4 25.0
condition n/a
subroutine 9 12 75.0
pod 0 8 0.0
total 32 50 64.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3 37     37   258 use strict;
  37         98  
  37         1103  
4 37     37   228 use warnings;
  37         89  
  37         1104  
5              
6 37     37   744 use WWW::Shopify::Liquid;
  37         133  
  37         1545  
7              
8             package WWW::Shopify::Liquid::Tag;
9 37     37   258 use base 'WWW::Shopify::Liquid::Element';
  37         93  
  37         15279  
10              
11 5     5 0 18 sub inner_tags { return (); }
12 0 0   0 0 0 sub abstract { my $package = ref($_[0]) ? ref($_[0]) : $_[0]; return ($package eq __PACKAGE__); }
  0         0  
13 1986 50   1986 0 5524 sub name { my $package = ref($_[0]) ? ref($_[0]) : $_[0]; $package =~ s/^.*:://; $package =~ s/([a-z])([A-Z])/$1_$2/g; return lc($package); }
  1986         9565  
  1986         7878  
  1986         8325  
14             sub new {
15 9     9 0 21 my ($package, $line, $tag, $arguments, $contents) = @_;
16 9         34 my $self = { line => $line, core => $tag, arguments => $arguments, contents => $contents };
17 9         23 return bless $self, $package;
18             }
19 954     954 0 2705 sub is_free { return 0; }
20 1704     1704 0 8634 sub is_enclosing { return 0; }
21 0     0 0   sub min_arguments { return 0; }
22 0     0 0   sub max_arguments { return undef; }
23              
24              
25             1;