Select Code to Download

my $b = $a; # copy the reference, to pass a single object around
my $c = $a->copy; # create a copy, to have a new object like the old o
+ne

sub copy {
  my $self = shift;
  bless { %$self }, ref $self;
}