package CLITest;
use base 'Exporter';
use strict;
our @EXPORT = qw(cliack clicheck);
our @STACK;
sub cliack {
push @STACK, [(caller(0))[0],(caller(1))[3], @_];
}
sub clicheck {
pop @STACK;
}
1;
package CLITest;
use base 'Exporter';
use strict;
our @EXPORT = qw(cliack clicheck);
our @STACK;
sub cliack {
push @STACK, [(caller(0))[0],(caller(1))[3], @_];
}
sub clicheck {
pop @STACK;
}
1;