t/13-meth.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2 * 4;
   7
   8 my %res;
   9
  10 eval q[
  11  package subs::auto::Test;
  12  use subs::auto;
  13  $res{"${_}2"} = __PACKAGE__->can($_) ? 1 : 0 for qw<foo bar baz qux>;
  14  return;
  15  BEGIN { $res{foo} = __PACKAGE__->can('foo') ? 1 : 0; }
  16  sub bar;
  17  BEGIN { $res{bar} = __PACKAGE__->can('bar') ? 1 : 0; }
  18  baz 1;
  19  BEGIN { $res{baz} = __PACKAGE__->can('baz') ? 1 : 0; }
  20  BEGIN { $res{qux} = __PACKAGE__->can('qux') ? 1 : 0; }
  21  qux 3, 4;
  22 ];
  23 die $@ if $@;
  24
  25 is $res{foo}, 0, 'foo at compile time';
  26 is $res{bar}, 1, 'bar at compile time';
  27 is $res{baz}, 0, 'baz at compile time';
  28 is $res{qux}, 0, 'qux at compile time';
  29
  30 is $res{foo2}, 0, 'foo at run time';
  31 is $res{bar2}, 1, 'bar at run time';
  32 is $res{baz2}, 0, 'baz at run time';
  33 is $res{qux2}, 0, 'qux at run time';