File: | t/lib/MyMinifier.pm |
Coverage: | 87.5% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package MyMinifier; | ||||||
2 | 2 2 2 | 6 6 226 | use base 'Exporter'; | ||||
3 | |||||||
4 | our @EXPORT = qw(minify); | ||||||
5 | |||||||
6 | sub minify { | ||||||
7 | 1 | 0 | 10 | my $text = shift; | |||
8 | |||||||
9 | 1 | 10 | return "# $text #"; | ||||
10 | } | ||||||
11 | |||||||
12 | 1; |