hjkp · October 29, 2008 00:49
diff --git a/block_sample.rb b/block_sample.rb
 def foo(*bar, &baz)
  puts foo.inspect
  baz.call
 end

 foo(:one, :two, :three) { puts 'monkey!' }
 # >STDOUT> [ :one, :two, :three ]
 # >STDOUT> monkey!
diff --git a/in_perl.pl b/in_perl.pl
 sub foo {
  my @bar = @_;
  my $baz = pop(@bar);
  
  print Data::Dumper->Dump([@bar]);
  &$baz;
 }

 foo("one", "two", "three", sub { print "monkey!" });
	sub foo {
	my @bar = @_;
	my $baz = pop(@bar);

	print Data::Dumper->Dump([@bar]);
	&$baz;
	}

	foo("one", "two", "three", sub { print "monkey!" });