=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
