1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#!/usr/bin/perl -w
use strict;
use Test::More;
END { done_testing(); }
BEGIN { $SIG{__WARN__} = sub {
is(
shift(),
"Exporting from Number::Phone::Country is deprecated at t/number-phone-country-warnings.t line 17\n",
"Number::Phone::Country warns when asked to export"
);
} }
use Number::Phone::Country;
BEGIN { $SIG{__WARN__} = sub {
is(
shift(),
"Unknown param to Number::Phone::Country 'wibble' at t/number-phone-country-warnings.t line 27\n",
"Number::Phone::Country warns about bogus params"
);
} }
use Number::Phone::Country qw(noexport wibble);
|
