line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl |
2
|
37
|
|
|
37
|
|
16531
|
use strict; |
|
37
|
|
|
|
|
116
|
|
|
37
|
|
|
|
|
1905
|
|
3
|
37
|
|
|
37
|
|
254
|
use warnings; |
|
37
|
|
|
|
|
172
|
|
|
37
|
|
|
|
|
2644
|
|
4
|
|
|
|
|
|
|
|
5
|
37
|
|
|
37
|
|
259
|
package WWW::Shopify::Liquid::Filter::ImgTag; use base 'WWW::Shopify::Liquid::Filter'; |
|
37
|
|
|
|
|
1064
|
|
|
37
|
|
|
|
|
10998
|
|
6
|
|
|
|
|
|
|
sub operate { |
7
|
0
|
0
|
|
0
|
0
|
|
return "<img src='" . $_[2] . "' alt='" . $_[3] . "' class='" . join(" ", @_[4..$#_]). "'>" unless !$_[4]; |
8
|
0
|
0
|
|
|
|
|
return "<img src='" . $_[2] . "' alt='" . $_[3] . "'>" unless !$_[3]; |
9
|
0
|
|
|
|
|
|
return "<img src='" . $_[2] . "'>"; |
10
|
|
|
|
|
|
|
} |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
1; |