File Coverage

blib/lib/Apache/ASP/Lang/PerlScript.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 2 0.0
total 5 7 71.4


line stmt bran cond sub pod time code
1             package Apache::ASP::Lang::PerlScript;
2              
3             sub new {
4 50     50 0 259 my($class, %args) = shift;
5 50         247 bless \%args, $class;
6             };
7              
8 50     50 0 775 sub CommentStart { '#' };
9              
10             1;