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     $SIG{__WARN__} = sub { $_[0] =~ /deprecated/ or warn @_ };
   8
   9     package Foo;
  10     use Mouse;
  11
  12     sub import{
  13         shift;
  14         Mouse->export_to_level(1, @_);
  15     }
  16     $INC{'Foo.pm'}++;
  17 }
  18
  19 package A;
  20 use Test::More;
  21
  22 use Foo qw(has);
  23
  24 ok defined(&has), "export_to_level (DEPRECATED)";
  25
  26
  27 ok!defined(&Bar::has), "export (DEPRECATED)";
  28 Mouse->export('Bar', 'has');
  29 ok defined(&Bar::has), "export (DEPRECATED)";