trAvis - MANAGER

Edit File: 001-export_to_level.t

#!/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)";