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.