File Coverage

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

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	20	21	95.2

use strict;
use warnings;

package Pad::Tie::Plugin::HashRef;

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

sub provides { 'hash_ref' }

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

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

  for my $method (keys %$args) {
    # no tie needed because it is a basic hashref
    $ctx->{'%' . $args->{$method}} = $self->$method;
  }
}

1;