请教这段perl 代码是何意思

请问这段perl 代码是何意思？

sub browser {
  my ($self,$repl) = @_;
  $repl ||= $self->repl;  
  return $repl->declare(<<'JS')->();
  function () {
  ...
  return win.getBrowser()
}  
   
JS
};

看到perl module里面好多这种代码，在sub里有一个function (), 这是什么用法？ 另外在这个function之前，已经return了，
那这个function起什么作用呢？回调？ 具体怎么来使用的？谢谢！
perl不是太熟，请指教。

[解决办法]
google perl here doc

简单的说，中间的一段JavaScript代码（从function()开始，到JS那行结束），被当作文本传给了declare(...)。

Perl code

<<JScode...JS