1 use POSIX
qw(locale_h);
3 sub foo
{ "Subroutine foo called with args: @_" }
5 sub foo_undef
{ undef }
7 sub foo_die
{ die 'expiring...' }
9 sub readvar
{ Exim
::expand_string
("\$$_[0]") }
11 sub return_scalar
{ 42 }
13 sub return_list
{ (10, 20, 30) }
15 sub return_variable_vector
{ @x = (4, 5, 6) }
17 sub return_hash
{ (a
=> 4, b
=> 5) }
19 sub debug_write
{ Exim
::debug_write
($_[0]); 'Wrote debug' }
21 sub log_write
{ Exim
::log_write
($_[0]); 'Wrote log' }
23 sub change_locale
{ setlocale
(LC_TIME
, 'fr_FR'); 'Changed locale' }
25 sub foo_warn
{ warn 'this is a warning'; 'Wrote warning' }
27 sub no_warn
{ $SIG{__WARN__
} = sub { }; 'Discarded warnings' }