package Gl::Df;

use strict;
use warnings;
require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw( tst1 );
our $VERSION = 1.00;

use Gl::Uf;
sub tst1 { tst2(); print 1 ;}
1;


##</code><code>##

package Gl::Uf;


use strict;
use warnings;
require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw( tst2 );
our $VERSION = 1.00;


use Gl::Df;
sub tst2 { tst1();print 2 }

1;

##</code><code>##

use strict;
use warnings;

use Gl::Df;
use Gl::Uf;

tst1();
tst2();

##</code><code>##

Undefined subroutine &Gl::Uf::tst1 called at Gl/Uf.pm line 14.