t/re-engine-Hooks-TestDist/lib/re/engine/Hooks/TestDist.pm

   1 package re::engine::Hooks::TestDist;
   2
   3 use 5.010_001;
   4
   5 use strict;
   6 use warnings;
   7
   8 our ($VERSION, @ISA);
   9
  10 use re::engine::Hooks;
  11
  12 BEGIN {
  13  $VERSION = '0.05';
  14  require DynaLoader;
  15  push @ISA, 'DynaLoader';
  16  __PACKAGE__->bootstrap($VERSION);
  17 }
  18
  19 sub import {
  20  my ($class, $key, $var) = @_;
  21
  22  set_variable($key, $var) if defined $var;
  23  re::engine::Hooks::enable(__PACKAGE__ . "::$key");
  24 }
  25
  26 sub unimport {
  27  my ($class, $key) = @_;
  28
  29  re::engine::Hooks::disable(__PACKAGE__ . "::$key");
  30 }
  31
  32 1;