=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<< <sasakure_kei __at__ cpan.org> >>
=head1 REPOSITORY
git clone git@github.com:sasakure-kei/p5-Acme-Replica.git
=head1 LICENCE AND COPYRIGHT
Copyright (c) 2013, Kei Shimada C<< <sasakure_kei __at__ cpan.org> >>. 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<perlartistic>.
=cut