File Coverage

blib/lib/Tie/Hash/MultiValueOpts.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	4	100.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	33	33	100.0

# Prefer numeric version for backwards compatibility
BEGIN { require 5.010_001 }; ## no critic ( RequireUseStrict, RequireUseWarnings )
use strict;
use warnings;

package Tie::Hash::MultiValueOpts;

$Tie::Hash::MultiValueOpts::VERSION = 'v1.0.4';

use Tie::Hash ();
use parent -norequire, 'Tie::StdHash';

sub TIEHASH { my $class = shift; bless { @_ }, $class }

sub STORE {
  my ( $self, $key, $value ) = @_;

  if ( my $current_value = $self->{ $key } ) {
    if ( 'ARRAY' eq ref $current_value ) {
      push @{ $current_value }, $value;
      return $current_value
    }
  }
  $self->SUPER::STORE( $key, $value )
}

1