1: package Object::Clone;
   2: 
   3: use strict;
   4: use vars qw($VERSION);
   5: use Data::Dumper;
   6: 
   7: $VERSION = '0.02';
   8: 
   9: sub clone {
  10:         my $self = shift;
  11: 
  12:         my $VAR1;
  13:         my $copy_dump = Dumper $self;
  14: 
  15:         eval $copy_dump; warn $@ if $@;
  16: 
  17:         return $VAR1; 
  18: }
  19: 
  20: =pod
  21: 
  22: =head1 NAME
  23: 
  24: Object::Clone
  25: 
  26: =head1 SYNOPSIS
  27: 
  28: package Myclass;
  29: 
  30: @ISA = qw(Object::Clone);
  31: 
  32: my object1 = Myclass->new(attribute => 'argle');
  33: my object2 = object1->clone;
  34: 
  35: =head1 DESCRIPTION
  36: 
  37: This class offers a simple cloning method. So you can make copies of your object
  38: s fast.
  39: 
  40: =over
  41: 
  42: =item clone
  43: 
  44: The method use to clone objects. Takes no arguments, just has to be called as a 
  45: regular method (cause it is) and returns a new object.
  46: 
  47: =back
  48: 
  49: =head1 AUTHOR
  50: 
  51: 
  52: jonasbn <jonasbn@wanadoo.dk>
  53: 
  54: =head1 BUGS
  55: 
  56: No known bugs. 
  57: 
  58: =head1 SEE ALSO
  59: 
  60: L<Data::Dumper>
  61: 
  62: =head1 COPYRIGHT
  63: 
  64: Copyright (c) 2001 Jonas B. Nielsen. All rights
  65: reserved.  This program is free software; you can
  66: redistribute it and/or modify it under the same 
  67: terms as Perl itself.
  68: 
  69: Drop me a mail - it will be appreciated.
  70: 
  71: Home of this code is http://jonasbn.hjem.wanadoo.dk/perl
  72: 
  73: =cut
  74: 
  75: 1;