Help for this page

Select Code to Download


  1. or download this
    sub somemethod {
  my($self, $v1, $v2) = @_;
...
  print "x1=$x1, x2=$x2\n";
  my($ret) = $self->_othermethod($v1);
  ...
  2. or download this
    method somemethod {
  my($v1, $v2) = @_;
...
  my($ret) = $self._othermethod($v1);
  ...