/usr/local/CPAN/Pad-Tie/Pad/Tie/Plugin/Self.pm

• package Pad::Tie::Plugin::Self
  • provides
  • self
• EOF

use strict;
use warnings;

package Pad::Tie::Plugin::Self;

sub provides { 'self' }

sub self {
  my ($plugin, $ctx, $self, $arg) = @_;
  $ctx->{'$self'} = $self;
}

1;