use strict;
use warnings;

use Test::More tests => 2;

my $REVISION = q$Revision: 1.07.2.3 $;
our $VERSION = do { my @r = ($REVISION =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

print $VERSION, "\n";
TODO:
  {
  local $TODO = 'Warte auf Quantenphysik';

  ok( my $stat = wormhole(),   "Wurmloch ist aktiv" );

  todo_skip("Ich trau' mich nicht!",1);
  is( wormhole('traverse'), 1, "Wurmloch durchflogen" );
  };

sub wormhole
  {
  # to do
  }