This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Systematic tests for the block hooks.
[perl5.git] / ext / XS-APItest / t / BHK.pm
1 package t::BHK;
2
3 sub import   { 
4     shift;
5     unless (@_) {
6         XS::APItest::bhk_record(1);
7         return;
8     }
9     if ($_[0] eq "push") {
10         push @XS::APItest::bhkav, $_[1];
11         return;
12     }
13 }
14 sub unimport { XS::APItest::bhk_record(0) }
15
16 1;