[Catalyst-commits] r6832 - trunk/Test-WWW-Mechanize-Catalyst-TreeBuilder/lib/Test/WWW/Mechanize/Catalyst

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2007-09-03 20:45:39 +0100 (Mon, 03 Sep 2007)
New Revision: 6832

Modified:
   trunk/Test-WWW-Mechanize-Catalyst-TreeBuilder/lib/Test/WWW/Mechanize/Catalyst/TreeBuilder.pm
Log:
Add some pod

Modified: trunk/Test-WWW-Mechanize-Catalyst-TreeBuilder/lib/Test/WWW/Mechanize/Catalyst/TreeBuilder.pm
===================================================================
--- trunk/Test-WWW-Mechanize-Catalyst-TreeBuilder/lib/Test/WWW/Mechanize/Catalyst/TreeBuilder.pm	2007-09-03 19:40:24 UTC (rev 6831)
+++ trunk/Test-WWW-Mechanize-Catalyst-TreeBuilder/lib/Test/WWW/Mechanize/Catalyst/TreeBuilder.pm	2007-09-03 19:45:39 UTC (rev 6832)
@@ -1,5 +1,21 @@
 package Test::WWW::Mechanize::Catalyst::TreeBuilder;
 
+=head1 NAME
+
+Test::WWW::Mechanize::Catalyst::TreeBuilder
+
+=head1 SYNOPSIS
+
+ use Test::More tests => 2;
+ use Test::WWW::Mechanize::Catalyst::TreeBuilder 'MyApp';
+
+ my $mech = Test::WWW::Mechanize::Catalyst::TreeBuilder->new;
+
+ $mech->get_ok('/');
+ ok( $mech->look_down(_tag => 'p')->as_trimmed_text, 'Some text', 'It worked' );
+
+=cut
+
 use Moose;
 use HTML::TreeBuilder;
 
@@ -37,4 +53,10 @@
   $self->tree->delete if $self->tree;
 }
 
+=head1 AUTHOR
+
+Ash Berlin C<< <ash at cpan.org> >>
+
+=cut
+
 1;