nopaste

########### Bar.pm ################
use 5.008001;
use strict;
use warnings;

package Bar;

use warnings::register;
sub hello {
    warnings::warnif( "problem" );
    print "Hello\n";  # XXX NEVER RUNS
}

1;

########### Foo.pm ################

use 5.008001;
use strict;
use warnings;

package Foo;

use warnings FATAL => 'all';

use Bar;

sub hi { Bar::hello() }

1;

########### Bar.pm ################

#!/usr/bin/env perl
use strict;
use warnings;

use Foo;

Foo::hi();

########### output ################
$ perl foo.pl
problem at Foo.pm line 11.