File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition	1	3	33.3
subroutine	8	8	100.0
pod	1	2	50.0
total	34	37	91.8

use strict;
use warnings;

package Pad::Tie::Plugin::Scalar;

use base 'Pad::Tie::Plugin';

sub provides { 'scalar' }

sub scalar {
  my ($plugin, $ctx, $self, $args) = @_;
  my $class = ref($plugin) || $plugin;
  $args = $plugin->canon_args($args);
  for my $method (keys %$args) {
    my $name = $args->{$method};
    tie $ctx->{"\$$name"}, $class, $self, $method;
  }
}

sub TIESCALAR {
  my ($class, $inv, $method) = @_;
  return bless [ $inv, $method ] => $class;
}

sub FETCH {
  my ($self, $method) = @{+shift};
  return $self->$method;
}

sub STORE {
  my ($self, $method) = @{+shift};
  $self->$method(@_);
}

1;