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; |