t/02-can.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 my @methods = qw<
   9  new here
  10  cxt
  11  uid is_valid assert_valid
  12
  13  package file line
  14  sub_name sub_has_args
  15  gimme
  16  eval_text is_require
  17  hints_bits warnings_bits
  18
  19  want
  20  up sub eval
  21
  22  reap localize localize_elem localize_delete
  23  unwind yield
  24  uplevel
  25 >;
  26
  27 push @methods, 'hints_hash' if "$]" >= 5.010;
  28
  29 plan tests => scalar(@methods);
  30
  31 require Scope::Context;
  32
  33 for (@methods) {
  34  ok(Scope::Context->can($_), 'Scope::Context objects can ' . $_);
  35 }
  36