File Coverage

blib/lib/Mason/Plugin/DollarDot/Compilation.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Mason::Plugin::DollarDot::Compilation;
2             $Mason::Plugin::DollarDot::Compilation::VERSION = '2.23';
3 19     19   12155 use Mason::PluginRole;
  19         407  
  19         167  
4              
5             after 'process_perl_code' => sub {
6             my ( $self, $coderef ) = @_;
7              
8             # Replace $. with $self->
9             $$coderef =~ s/ \$\.([^\W\d]\w*) / \$self->$1 /gx;
10             };
11              
12             1;