=encoding utf8 =head1 NAME Acme::Replica =head1 SYNOPSIS use strict; use warnings; use Acme::Replica; use Data::Dumper; my $scalar = 'sushi'; my $replica = replica_of( $scalar ); print $replica # sushi print 'Never display this message.' if $replica eq 'sushi'; my @hotdog = qw/bread sausage/; my @replica = replica_of( \@hotdog ); print Dumper \@replica; # $var1 = [ # 'bread', # 'sausage', # ]; print 'Never display this message.' if $replica[0] eq 'bread'; my %buffet_table = ( japanese => 'sukiyaki', amelican => 'stake', italian => 'pasta', ); my %replica = replica_of( \%buffet_table ); print Dumper \%replica; # $var1 = { # japanese => 'sukiyaki', # amelican => 'stake', # italian => 'pasta', # }; print $replica{japanese}; # Use of uninitialized value in print at test.pl line ... =head1 DESCRIPTION This module creates a elaborate replica. The same as the food sample, it looks so delicious, but you will not able to eat. =head1 AUTHOR Kei Shimada C<< >> =head1 REPOSITORY git clone git@github.com:sasakure-kei/p5-Acme-Replica.git =head1 LICENCE AND COPYRIGHT Copyright (c) 2013, Kei Shimada C<< >>. All rights reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L. =cut