package Mod11146642::Two 2.00;

use 5.012; # //, strict, say
use warnings;

sub twoFunction
{
    local $" = ",";
    printf STDERR "Called %s(@_)\n", (caller(0))[3];
}

sub import
{
    my ($pkg) = @_;
    my $callpkg = caller(0);
    no strict 'refs';
    my $exportfunction = $callpkg . '::twoFunction';
    *{$exportfunction} = \&twoFunction;
}

1;