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;