bump version to 1.000005

[p5sagit/Object-Tap.git] / lib / Object / Tap.pm

diff --git a/lib/Object/Tap.pm b/lib/Object/Tap.pm
index bebffc6..74f2803 100644 (file)
--- a/lib/Object/Tap.pm
+++ b/lib/Object/Tap.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use base qw(Exporter);
 
-our $VERSION = '1.000002'; # 1.0.2
+our $VERSION = '1.000005';
 
 our @EXPORT = qw($_tap);
 
@@ -40,10 +40,15 @@ You can also pass extra args -
 
   $obj->$_tap(sub { warn "Got arg: $_[1]" }, 'arg');
 
-or use a method name instead of a sub name -
+or use a method name instead of a sub ref -
 
   my $thing = My::Class->new(...)->$_tap(set_foo => 1);
 
+For a 'real' example of how that might be used, one could create and
+initialize an L<HTML::TableExtract> object in one go using -
+
+  my $te = HTML::TableExtract->new->$_tap(parse => $html);
+
 =head1 AUTHOR
 
 mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>