Select Code to Download

tie @array, 'Tie::ArrayXYZ';
tied(@array)->method(@args);

$obj = tie @array, 'Tie::ArrayXYZ';
$obj->method(@args);

method(@array, @args);

package Tie::ArrayXYZ;

...
}

1;

use Tie::ArrayXYZ;

tie @array, 'Tie::ArrayXYZ', $some_xyz;
# ...
tied(@array)->CHANGEXYZ($new_xyz);

use Tie::ArrayXYZ;

tie @array, 'Tie::ArrayXYZ', $some_xyz;
# ...
changeXYZ(@array,$new_xyz);

sub main::changeXYZ (\@@) {
  my $arg = shift;
...
  ) unless defined($obj) and $obj->isa("Tie::ArrayXYZ");
  return $obj->CHANGEXYZ(@_);
}

use Tie::Functions VARTYPE, FUNCTIONS;

package Tie::Functions;

...
}

1;