File Coverage

blib/lib/Filter/Object/Simple.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Filter::Object::Simple;
2              
3 1     1   25118 use 5.008008;
  1         4  
  1         42  
4 1     1   6 use strict;
  1         3  
  1         35  
5 1     1   5 use warnings;
  1         7  
  1         44  
6 1     1   3091 use Filter::Simple;
  1         39062  
  1         6  
7             require Exporter;
8              
9             our @ISA = qw(Exporter);
10              
11             our %EXPORT_TAGS = ( 'all' => [ qw(
12            
13             ) ] );
14              
15             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
16              
17             our @EXPORT = qw(
18            
19             );
20              
21             our $VERSION = '0.01';
22              
23             # Preloaded methods go here.
24             FILTER {
25             s/%([a-z_]+?)\.(exists|defined|delete)\((.*?)\)/$2(\$$1\{$3\})/isg;
26             s/(%[a-z_]+?)\.(each|keys|values)(\(\s*\))?/$2 $1 /isg;
27             };
28              
29             FILTER {
30             s/(@[a-z_]+?)\.(pop|reverse)\(\s*\)/$2($1)/isg;
31             s/(@[a-z_]+?)\.(unshift|push|splice)\((.+?)\)/$2( $1 , $3 )/isg;
32             s/([@%][a-z_]+?) # function name
33             \.(map|grep)\(
34             (.+?) # parameter
35             \)/$2 $3 $1/isxg;
36             };
37              
38              
39             1;
40             __END__