Select Code to Download

  592:  sub _get_token {
  593:    my $self = (shift);
...
  597:    my ($token) =  $line =~ /^\^([^\^]{1,120}?)\^/;
  598:    return $token;
  599:  }

  my $self = (shift);

...

  my $value = (shift);
  my $token = $self->_get_token($value);