Select Code to Download

sub foo {
  my @tokens = split /\:\:/, shift;
...
  my $function = pop @tokens;
  return ( join( q[::], @tokens), $function );
}

sub bar {
  return map({join(q[::], @$_[0 .. $#$_ - 1]), $$_[$#$_];} [split(/::/
+, shift)]); 
}

sub boo {
  my $a = shift;
...
      return ($1 || '', $2);
  }
}