X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2Flib%2FVariable%2FMagic%2FTestWatcher.pm;h=bcbd67e5987ffa91d6c85268df2a72c19c1b1add;hb=da422089a9a5dfbf84e72ec3ba867063471ff41c;hp=672ae12599e92946a99d6bc74e604ed7a9d87bf6;hpb=505fda7126b01811c0ca990552876a1c6d9dc7c3;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/lib/Variable/Magic/TestWatcher.pm b/t/lib/Variable/Magic/TestWatcher.pm
index 672ae12..bcbd67e 100644
--- a/t/lib/Variable/Magic/TestWatcher.pm
+++ b/t/lib/Variable/Magic/TestWatcher.pm
@@ -10,7 +10,7 @@ use Variable::Magic qw/wizard/;
 
 use base qw/Exporter/;
 
-our @EXPORT = qw/init check/;
+our @EXPORT = qw/init_watcher watch/;
 
 sub _types {
  my $t = shift;
@@ -24,7 +24,7 @@ sub _types {
 
 our ($wiz, $prefix, %mg);
 
-sub init ($;$) {
+sub init_watcher ($;$) {
  croak 'can\'t initialize twice' if defined $wiz;
  my $types = _types shift;
  $prefix   = (defined) ? "$_: " : '' for shift;
@@ -37,7 +37,7 @@ sub init ($;$) {
  return $wiz;
 }
 
-sub check (&;$$) {
+sub watch (&;$$) {
  my $code = shift;
  my $exp  = _types shift;
  my $desc = shift;