File Coverage

blib/lib/Pad/Tie/Plugin/ScalarAttr.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	2	50.0
total	31	32	96.8

use strict;
use warnings;

package Pad::Tie::Plugin::ScalarAttr;

use Devel::LexAlias ();
use base 'Pad::Tie::Plugin';

sub provides { 'scalar_attr' }

sub scalar_attr {
  my ($plugin, $ctx, $self, $args) = @_;

  $args = $plugin->canon_args($args);

  my $rv = { pre_call => [] };
  for my $method (keys %$args) {
    my $name = $args->{$method};
    push @{ $rv->{pre_call} }, sub {
      my ($self, $code, $args) = @_;
      Devel::LexAlias::lexalias(
        $code,
        '$' . $name,
        \$self->{invocant}->{$method},
      );
    };
  }

  return $rv;
}

1;