File Coverage

blib/lib/Acme/Replica.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	8	8	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	41	42	97.6

package Acme::Replica;

our $VERSION = '0.02';

require Exporter;
use base qw/Exporter/;
use Carp;

our @EXPORT = qw/replica_of/;

sub replica_of {
    my $sample = shift;

    my $r = ref( $sample );
    return
        $r eq 'HASH'   ? Acme::Replica::_mode_hash_ref( $sample )   :
	$r eq 'ARRAY'  ? Acme::Replica::_mode_array_ref( $sample )  :
	$r eq 'SCALAR' ? Acme::Replica::_mode_scalar_ref( $sample ) :
	!$r            ? Acme::Replica::_mode_scalar( $sample )     :
	croak 'Not a (SCALAR|ARRAY|HASH) reference.'
	;
}

sub _mode_hash_ref {
    my ( $hash_ref,) = @_;
    my %replica_hash = ();
    for ( keys %$hash_ref ) {
	$replica_hash{ Acme::Replica::_add_invisible_character($_) } = $hash_ref->{ $_ };
    }
    return %replica_hash;
}

sub _mode_array_ref {
    my ( $array_ref,) = @_;
    my @replica_array = ();
    for ( @$array_ref ) {
	push @replica_array, Acme::Replica::_add_invisible_character($_);
    }
    return @replica_array;
}

sub _mode_scalar_ref {
    my ( $scalar_ref,) = @_;
    return Acme::Replica::_add_invisible_character( $$scalar_ref );
}

sub _mode_scalar {
    my ($scalar,) = @_;
    return Acme::Replica::_add_invisible_character( $scalar );
}

sub _add_invisible_character {
    my ($str,) = @_;
    return pack('H2', '1c') . $str;
}

1;
__END__