File Coverage

blib/lib/SHARYANTO/Hash/Util.pm

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

package SHARYANTO::Hash::Util;

our $DATE = '2014-10-11'; # DATE
our $VERSION = '0.76'; # VERSION

use 5.010;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(rename_key);

sub rename_key {
    my ($h, $okey, $nkey) = @_;
    die unless    exists $h->{$okey};
    die if        exists $h->{$nkey};
    $h->{$nkey} = delete $h->{$okey};
}

1;
# ABSTRACT: Hash utilities

__END__