NAME

Acme::Replica

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 = {
#    italian  => 'pasta',
#    japanese => 'sukiyaki',
#    amelican => 'stake',
#    };
print $replica{japanese}; # Use of uninitialized value in print at test.pl line ...

DESCRIPTION

This module creates a elaborate replica. The same as the food sample, it looks so delicious, but you will not able to eat.

AUTHOR

Kei Shimada <sasakure_kei __at__ cpan.org>

REPOSITORY

git clone git@github.com:sasakure-kei/p5-Acme-Replica.git

LICENCE AND COPYRIGHT

Copyright (c) 2013, Kei Shimada <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 perlartistic.