File Coverage

blib/lib/Filter/CommaEquals.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Filter::CommaEquals;
2             # ABSTRACT: Adds support for ,= to any package or script
3              
4 1     1   215074 use 5.008;
  1         12  
5 1     1   4 use strict;
  1         2  
  1         17  
6 1     1   4 use warnings;
  1         2  
  1         23  
7              
8 1     1   450 use Filter::Simple;
  1         19615  
  1         9  
9              
10             our $VERSION = '1.03'; # VERSION
11              
12             FILTER_ONLY
13             code => sub {
14             s/(\@[^',=']+)\s*,=\s*([^;]+);/push $1, $2;/msg
15             };
16              
17             1;
18              
19             __END__