File Coverage

blib/lib/Hash/Args.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	10	10	100.0
condition	6	6	100.0
subroutine	6	6	100.0
pod	1	1	100.0
total	50	50	100.0

package Hash::Args;

use strict;
use warnings;

use parent       qw( Exporter );
use Carp         ();
use Scalar::Util ();

our $VERSION = '0.02';
our @EXPORT  = qw( hash );


sub hash {
  my $hash;

  if( @_ == 1 && ref $_[0] ne '' ) {
    my $arg = shift;
    my $ref = ref $arg;

    # objects and HASH refs are just pass-throughs
    if( Scalar::Util::blessed( $arg ) || $ref eq 'HASH' ) {
      $hash = $arg;
    }

    # ARRAY refs must be key/value pairs
    elsif( $ref eq 'ARRAY' ) {
      Carp::confess( 'Unable to coerce to HASH reference from ARRAY reference with odd number of elements' )
        if @$arg % 2 == 1;

      $hash = +{ @$arg };
    }

    # i don't even...
    else {
      Carp::confess( 'Unable to coerce to HASH reference from unknown reference type ('. $ref. ')' )
    }
  }
  else {
    Carp::confess( 'Unable to coerce to HASH reference from LIST with odd number of elements' )
      if @_ % 2 == 1;

    $hash = +{ @_ };
  }

  $hash
}


1
__END__