Lines Matching refs:method

50     my ($x, $method, $A, $result) = @_;
52     is($x->copy->$method($A), $result, "$method($A)");
53     is($x->copy->$method($A.'.1'), $result, "$method(${A}.1)");
54     is($x->copy->$method($A.'.5'), $result, "$method(${A}.5)");
55     is($x->copy->$method($A.'.6'), $result, "$method(${A}.6)");
56     is($x->copy->$method($A.'.9'), $result, "$method(${A}.9)");
60     my ($x, $method, $P, $result) = @_;
62     is($x->copy->$method(undef, $P), $result, "$method(undef, $P)");
63     is($x->copy->$method(undef, $P.'.1'), $result, "$method(undef, ${P}.1)");
64     is($x->copy->$method(undef, $P.'.5'), $result, "$method(undef.${P}.5)");
65     is($x->copy->$method(undef, $P.'.6'), $result, "$method(undef, ${P}.6)");
66     is($x->copy->$method(undef, $P.'.9'), $result, "$method(undef, ${P}.9)");
70     my ($x, $method, $y, $A, $result) = @_;
74     is($x->copy->$method($cy, $A), $result, "$method($cy, $A)");
75     is($x->copy->$method($cy, $A.'.1'), $result, "$method($cy, ${A}.1)");
76     is($x->copy->$method($cy, $A.'.5'), $result, "$method($cy, ${A}.5)");
77     is($x->copy->$method($cy, $A.'.6'), $result, "$method($cy, ${A}.6)");
78     is($x->copy->$method($cy, $A.'.9'), $result, "$method($cy, ${A}.9)");
82     my ($x, $method, $y, $P, $result) = @_;
86     is($x->copy->$method($cy, undef, $P), $result,
87        "$method(undef, $P)");
88     is($x->copy->$method($cy, undef, $P.'.1'), $result,
89        "$method($cy, undef, ${P}.1)");
90     is($x->copy->$method($cy, undef, $P.'.5'), $result,
91        "$method($cy, undef, ${P}.5)");
92     is($x->copy->$method($cy, undef, $P.'.6'), $result,
93        "$method($cy, undef, ${P}.6)");
94     is($x->copy->$method($cy, undef, $P.'.9'), $result,
95        "$method($cy, undef, ${P}.9)");