1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
class String
FOO = "foo"
def yay
"yay"
end
end
module ProcLookupTestA
module B
VALUE = 222
end
end
module ProcInNS
def self.make_proc_from_block(&b)
b
end
def self.call_proc(proc_arg)
proc_arg.call
end
def self.make_str_proc(type)
case type
when :proc_new then Proc.new { String.new.yay }
when :proc_f then proc { String.new.yay }
when :lambda_f then lambda { String.new.yay }
when :lambda_l then ->(){ String.new.yay }
when :block then make_proc_from_block { String.new.yay }
else
raise "invalid type :#{type}"
end
end
def self.make_const_proc(type)
case type
when :proc_new then Proc.new { ProcLookupTestA::B::VALUE }
when :proc_f then proc { ProcLookupTestA::B::VALUE }
when :lambda_f then lambda { ProcLookupTestA::B::VALUE }
when :lambda_l then ->(){ ProcLookupTestA::B::VALUE }
when :block then make_proc_from_block { ProcLookupTestA::B::VALUE }
else
raise "invalid type :#{type}"
end
end
def self.make_str_const_proc(type)
case type
when :proc_new then Proc.new { String::FOO }
when :proc_f then proc { String::FOO }
when :lambda_f then lambda { String::FOO }
when :lambda_l then ->(){ String::FOO }
when :block then make_proc_from_block { String::FOO }
else
raise "invalid type :#{type}"
end
end
CONST_PROC_NEW = Proc.new { [String.new.yay, String::FOO, ProcLookupTestA::B::VALUE.to_s].join(',') }
CONST_PROC_F = proc { [String.new.yay, String::FOO, ProcLookupTestA::B::VALUE.to_s].join(',') }
CONST_LAMBDA_F = lambda { [String.new.yay, String::FOO, ProcLookupTestA::B::VALUE.to_s].join(',') }
CONST_LAMBDA_L = ->() { [String.new.yay, String::FOO, ProcLookupTestA::B::VALUE.to_s].join(',') }
CONST_BLOCK = make_proc_from_block { [String.new.yay, String::FOO, ProcLookupTestA::B::VALUE.to_s].join(',') }
end
|
