X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F02-can.t;h=595aaacc6e7b6f5135dd04e58cfa6d33f8b84b0d;hb=HEAD;hp=ecae9f4aaf1cfa860b9f4bfd2089293bef8cd7a5;hpb=c7026b73f65000dc66bd89e44f5c95538f823ccf;p=perl%2Fmodules%2FScope-Context.git diff --git a/t/02-can.t b/t/02-can.t index ecae9f4..595aaac 100644 --- a/t/02-can.t +++ b/t/02-can.t @@ -9,11 +9,23 @@ my @methods = qw< new here cxt uid is_valid assert_valid + + package file line + sub_name sub_has_args + gimme + eval_text is_require + hints_bits warnings_bits + want up sub eval - reap localize localize_elem localize_delete unwind uplevel + + reap localize localize_elem localize_delete + unwind yield + uplevel >; +push @methods, 'hints_hash' if "$]" >= 5.010; + plan tests => scalar(@methods); require Scope::Context;