t/990_deprecated/001-export_to_level.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 3;
   5
   6 BEGIN{
   7     package Foo;
   8     use Mouse;
   9
  10     sub import{
  11         shift;
  12         Mouse->export_to_level(1, @_);
  13     }
  14     $INC{'Foo.pm'}++;
  15 }
  16
  17 package A;
  18 use Test::More;
  19
  20 use Foo qw(has);
  21
  22 ok defined(&has), "export_to_level (DEPRECATED)";
  23
  24
  25 ok!defined(&Bar::has), "export (DEPRECATED)";
  26 Mouse->export('Bar', 'has');
  27 ok defined(&Bar::has), "export (DEPRECATED)";