Module export test

A.pm

package PackageTesting::A;
use strict;
use warnings;
use Exporter qw(import);
our @EXPORT = qw(a b);

sub whowasi { ( caller(2) )[3] }

sub a {
        my ($called_from) = whowasi();
        my $var = shift;
        print "Calling PackageTesting::A::a with $var called from: $called_from\n";
        b("Within PackageTesting::A::a");

}

sub b {
        my ($called_from) = whowasi();
        my $var = shift;
        print "Calling PackageTesting::A::b with $var called from: $called_from\n";
}

1;

B.pm

package PackageTesting::B;
use strict;
use warnings;
use Exporter qw(import);
our @EXPORT = qw(main b);

sub whowasi { ( caller(2) )[3] }


sub  main {
        my ($called_from) = whowasi();
	my $var = shift;
        print "Calling PackageTesting::B::Main with $var called from: $called_from\n";

}

sub b {
        my ($called_from) = whowasi();
	my $var = shift;
        print "Calling PackageTesting::B::b with $var called from: $called_from\n";

}

1;

test-output.txt

Calling PackageTesting::A::a with : A should be from PackageTesting::A called from: main::test_sub
Calling PackageTesting::A::b with Within PackageTesting::A::a called from: PackageTesting::A::a
Calling PackageTesting::B::Main with : Main should be from PackageTesting::B called from: main::test_sub
Calling PackageTesting::B::b with : B should be from PackageTesting::B called from: main::test_sub

test.pl

use PackageTesting::A;
use PackageTesting::B;


sub test_sub{
	a(": A should be from PackageTesting::A");
	main(": Main should be from PackageTesting::B");
	b(": B should be from PackageTesting::B");
}

test_sub();

now try to call B::b from A::b and call A::a from B::main