Переглянути джерело

Changed maintainer information, added things to silence DistZilla,
enhanced the 03-spec-coverage test to print something approximating what
is needed in Selenium::Remote::Commands.

Charles Howes 12 роки тому
батько
коміт
b28b61e1d1

+ 0 - 7
README

@@ -1,10 +1,3 @@
-NOTE: Currently, I don't use Perl for my day job & support for this module is falling behind. If you want to take over 
-      maintenance of this module, please contact me.
-
-========================================================================================================================
-
-
-
 *** NOTE: Most of the JSON Wire Protocol http://code.google.com/p/selenium/wiki/JsonWireProtocol
 *** 	  has been implemented. This is still beta quality code.
 

+ 7 - 1
lib/Selenium/Remote/Commands.pm

@@ -327,6 +327,12 @@ sub get_params {
 
 __END__
 
+=pod
+
+=head1 NAME
+
+Selenium::Remote::Commands - Implement commands for Selenium::Remote::Driver
+
 =head1 SEE ALSO
 
 For more information about Selenium , visit the website at
@@ -339,7 +345,7 @@ L<http://github.com/aivaturi/Selenium-Remote-Driver/issues>.
 
 =head1 CURRENT MAINTAINER
 
-Gordon Child C<< <gchild@gordonchild.com> >>
+Charles Howes C<< <chowes@cpan.org> >>
 
 =head1 AUTHOR
 

+ 4 - 4
lib/Selenium/Remote/Driver.pm

@@ -26,8 +26,6 @@ use constant FINDERS => {
       xpath             => 'xpath',
 };
 
-our $VERSION = "0.17";
-
 =head1 NAME
 
 Selenium::Remote::Driver - Perl Client for Selenium Remote Driver
@@ -1894,14 +1892,16 @@ The following people have contributed to this module. (Thanks!)
 
 =over 4
 
+=item * Allen Lew
+
+=item * Charles Howes
+
 =item * Gordon Child
 
 =item * Phil Kania
 
 =item * Phil Mitchell
 
-=item * Allen Lew
-
 =item * Tom Hukins
 
 =back

+ 7 - 1
lib/Selenium/Remote/ErrorHandler.pm

@@ -121,6 +121,12 @@ sub process_error {
 
 __END__
 
+=pod
+
+=head1 NAME
+
+Selenium::Remote::ErrorHandler - Error handler for Selenium::Remote::Driver
+
 =head1 SEE ALSO
 
 For more information about Selenium , visit the website at
@@ -133,7 +139,7 @@ L<http://github.com/aivaturi/Selenium-Remote-Driver/issues>.
 
 =head1 CURRENT MAINTAINER
 
-Gordon Child C<< <gchild@gordonchild.com> >>
+Charles Howes C<< <chowes@cpan.org> >>
 
 =head1 AUTHOR
 

+ 8 - 2
lib/Selenium/Remote/RemoteConnection.pm

@@ -135,9 +135,15 @@ sub _process_response {
 
 __END__
 
+=pod
+
+=head1 NAME
+
+Selenium::Remote::RemoteConnection - Connect to a selenium server
+
 =head1 SEE ALSO
 
-For more information about Selenium , visit the website at
+For more information about Selenium, visit the website at
 L<http://code.google.com/p/selenium/>.
 
 =head1 BUGS
@@ -147,7 +153,7 @@ L<http://github.com/aivaturi/Selenium-Remote-Driver/issues>.
 
 =head1 CURRENT MAINTAINER
 
-Gordon Child C<< <gchild@gordonchild.com> >>
+Charles Howes C<< <chowes@cpan.org> >>
 
 =head1 AUTHOR
 

+ 1 - 1
lib/Selenium/Remote/WebElement.pm

@@ -474,7 +474,7 @@ L<http://github.com/aivaturi/Selenium-Remote-Driver/issues>.
 
 =head1 CURRENT MAINTAINER
 
-Gordon Child C<< <gchild@gordonchild.com> >>
+Charles Howes C<< <chowes@cpan.org> >>
 
 =head1 AUTHOR
 

+ 6 - 1
t/03-spec-coverage.t

@@ -48,7 +48,7 @@ for my $line (@lines) {
 my $commands = Selenium::Remote::Commands->new;
 SOURCE_COMMAND: for my $method_source (@methods) {
   my $command = "$method_source->{method} $method_source->{path}";
-  my $msg     = "find $command";
+  my $msg     = "Looking for '$command'";
   for my $method_local (values %{$commands}) {
     if (  $method_local->{url} eq $method_source->{path}
       and $method_local->{method} eq $method_source->{method}) {
@@ -59,6 +59,11 @@ SOURCE_COMMAND: for my $method_source (@methods) {
 TODO: {
     local $TODO = "need to create command" if $todo_list->{$command};
     fail($msg);
+    diag("Add this to lib/Selenium/Remote/Commands.pm:
+        '$method_source->{path}'     => {
+                          'method' => '$method_source->{method}',
+                          'url'    => '$method_source->{path}'
+        },\n");
   }
 }