X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTak.pm;h=2a7581bb2fb49ff1a7c5a75637173bcc62e53cd0;hb=330ac6a2816a7d985014057aff3442546705e153;hp=ce3ca2ea50c74e3c3e4f7a527b475e29c920210f;hpb=addc801e40b2b3ce69c002b38f57bda93bca6707;p=scpubgit%2FTak.git

diff --git a/lib/Tak.pm b/lib/Tak.pm
index ce3ca2e..2a7581b 100644
--- a/lib/Tak.pm
+++ b/lib/Tak.pm
@@ -3,17 +3,19 @@ package Tak;
 use Tak::Loop;
 use strictures 1;
 
-our $VERSION = '0.001001'; # 0.1.1
+our $VERSION = '0.001002'; # 0.1.2
 
-our $loop;
+our ($loop, $did_upgrade);
 
 sub loop { $loop ||= Tak::Loop->new }
 
 sub loop_upgrade {
+  return if $did_upgrade;
   require IO::Async::Loop;
   my $new_loop = IO::Async::Loop->new;
   $loop->pass_watches_to($new_loop) if $loop;
   $loop = $new_loop;
+  $did_upgrade = 1;
 }
 
 sub loop_until {
@@ -43,7 +45,7 @@ sub await_all {
   return;
 }
 
-"for lexie";
+1;
 
 =head1 NAME
 
@@ -79,8 +81,9 @@ then
 
 =head1 WHERE'S THE REST?
 
-A drink leaked in my bag on the way back from LPW. You'll get more once I
-get my laptop's drive into an enclosure and decant the slides.
+A drink leaked in my bag on the way back from LPW. My laptop is finally
+alive again though so I'll try and turn my slides into a vague attempt
+at documentation while I'm traveling to/from christmas things.
 
 =head1 AUTHOR
 
@@ -92,7 +95,7 @@ None required yet. Maybe this module is perfect (hahahahaha ...).
 
 =head1 COPYRIGHT
 
-Copyright (c) 2011 the strictures L</AUTHOR> and L</CONTRIBUTORS>
+Copyright (c) 2011 the Tak L</AUTHOR> and L</CONTRIBUTORS>
 as listed above.
 
 =head1 LICENSE