Core Function Clone

$a = BinaryCreate(3);
$a[0] = 'C';
$a[1] = 'A';
$a[2] = 'T';
 
$b = Clone($a);
$b[0] = 'J';
 
echo "First '$a' Second '$b'\n";
# Prints
# First 'CAT' Second 'JAT'

// Define a new class
Class Test
{
	Static $Instances = 0;
	my $ID;
	my $Name;
	my $Something;
	// The Construct will let us know when it happens
	Function __Construct($Name)
	{
		say "Creating a new class with name: $Name...";
		$this->$ID = ++Test::$Instances;
	}
	// The Clone will let us know when it happens
	Function __Clone()
	{
		say "Cloning a class with name: $Name...";
		$this->$ID = ++Test::$Instances;
	}
};
 
// Create a new instance of the class and give it a name etc
$a = new Test("John");
$a->$Name = "John";
$a->$Something = array("Cat", "Dog", "Frog");
 
// Clone the class $a and give it a new name and add something
// to its $something array
$b = Clone($a);
$b->$Name = "Barry";
$b->$Something[] = "FoX";
 
// Print the contents of the classes
printr $a;
printr $b;
 
// Prints:
// Creating a new class with name: John...
// Cloning a class with name: John...
// {CLASS:test;ID:3}
// {
//         [id] => 1
//         [name] => John
//         [something] => ARRAY
//         {
//                 [0] => Cat
//                 [1] => Dog
//                 [2] => Frog
//         }
// }
// {CLASS:test;ID:4}
// {
//         [id] => 2
//         [name] => Barry
//         [something] => ARRAY
//         {
//                 [0] => Cat
//                 [1] => Dog
//                 [2] => Frog
//                 [3] => FoX
//         }
// }