File Coverage

blib/lib/Pad/Tie/Plugin/Self.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 13 15 86.6


line stmt bran cond sub pod time code
1 1     1   431 use strict;
  1         2  
  1         22  
2 1     1   2 use warnings;
  1         1  
  1         62  
3              
4             package Pad::Tie::Plugin::Self;
5              
6 1     1 0 2 sub provides { 'self' }
7              
8             sub self {
9 1     1 0 1 my ($plugin, $ctx, $self, $arg) = @_;
10 1         4 $ctx->{'$self'} = $self;
11             }
12              
13             1;