File Coverage

blib/lib/worky.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1 2     2   2665 use strict; use warnings;
  2     2   6  
  2         76  
  2         13  
  2         4  
  2         134  
2             package worky;
3             our $VERSION = '0.20';
4              
5 2     2   1473 use orz -base;
  0            
  0            
6              
7             sub pmc_use_means_no { 1 }
8              
9             sub pmc_compile {
10             my $self = shift;
11             my $code = $self->SUPER::pmc_compile(@_);
12             $code =~ s/^# orz/# This code no worky/;
13             return $code;
14             }
15              
16             1;