Help for this page

Select Code to Download


  1. or download this
    my ($foo, $bar, @baz) = @_;
  2. or download this
    sub some_method {
   my $self = shift;
   my ($foo, $bar, @baz) = @_;
  ...;
}
  3. or download this
    around some_method => sub {
   my ($orig, $self) = (shift, shift);
   my ($foo, $bar, @baz) = @_;
  ...;
};
  4. or download this
    sub mygrep {
   my $code = shift;
   my (@items) = @_;
  ...;
}