File Coverage

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

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition	2	2	100.0
subroutine	7	7	100.0
pod	0	4	0.0
total	23	27	85.1

use strict;
use warnings;

package Pad::Tie::Plugin::HashAttr;

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

sub attr_type { 'hash' }

sub sigil { '%' }

sub hash_attr {
  shift->build_attrs(@_);
}

sub ref_for_attr {
  my ($plugin, $ctx, $self, $arg) = @_;
  return $self->{invocant}->{$arg->{method}} ||= {};
}

1;