[libtest-www-mechanize-catalyst-perl] 01/07: Imported Upstream version 0.59

gregor herrmann gregoa at debian.org
Wed Jan 15 21:16:56 UTC 2014


This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libtest-www-mechanize-catalyst-perl.

commit 4490bda6f8e697fbe0a2cd8933b0625de642218d
Author: gregor herrmann <gregoa at debian.org>
Date:   Wed Jan 15 17:17:51 2014 +0100

    Imported Upstream version 0.59
---
 CHANGES                            |  4 ++++
 META.yml                           |  5 +++--
 Makefile.PL                        |  1 +
 README                             |  2 +-
 lib/Test/WWW/Mechanize/Catalyst.pm | 19 ++++++++++---------
 5 files changed, 19 insertions(+), 12 deletions(-)

diff --git a/CHANGES b/CHANGES
index 73045fc..a4a5dfc 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,5 +1,9 @@
 Revision history for Perl module Test::WWW::Mechanize::Catalyst:
 
+0.59 Mon Jan 13 11:23 GMT 2014
+     - Use Class::Load instead of Class::MOP::load_class(). RT#90978
+     - Fix typos in POD and comments. RT#85171
+
 0.58 Sat Jun 30 17:01 BST 2012
      - Fix external server test.
      - Fix infinite redirects. RT#76614
diff --git a/META.yml b/META.yml
index 84a3bdf..10532cf 100644
--- a/META.yml
+++ b/META.yml
@@ -1,7 +1,7 @@
 ---
 abstract: 'Test::WWW::Mechanize for Catalyst'
 author:
-  - 'Ash Berlin C<< <ash at cpan.org> >> (current maintiner)'
+  - 'Ash Berlin C<< <ash at cpan.org> >> (current maintainer)'
 build_requires:
   Catalyst::Plugin::Session::State::Cookie: 0
   Catalyst::Plugin::Session::Store::Dummy: 0
@@ -25,6 +25,7 @@ no_index:
     - t
 requires:
   Catalyst: 5.90
+  Class::Load: 0.19
   LWP: 5.816
   Moose: 0.67
   Test::WWW::Mechanize: 1.14
@@ -34,4 +35,4 @@ requires:
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://git.shadowcat.co.uk/catagits/Test-WWW-Mechanize-Catalyst.git
-version: 0.58
+version: 0.59
diff --git a/Makefile.PL b/Makefile.PL
index f901f19..dbe7c9f 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -9,6 +9,7 @@ perl_version '5.008004';
 all_from 'lib/Test/WWW/Mechanize/Catalyst.pm';
 
 requires 'Catalyst'                                 => '5.90';
+requires 'Class::Load'                              => '0.19';
 requires 'LWP'                                      => '5.816';
 requires 'Test::WWW::Mechanize'                     => '1.14';
 requires 'WWW::Mechanize'                           => '1.54';
diff --git a/README b/README
index 0c411af..4961d44 100644
--- a/README
+++ b/README
@@ -253,7 +253,7 @@ SEE ALSO
     Test::WWW::Mechanize, WWW::Mechanize.
 
 AUTHOR
-    Ash Berlin "<ash at cpan.org>" (current maintiner)
+    Ash Berlin "<ash at cpan.org>" (current maintainer)
 
     Original Author: Leon Brocard, "<acme at astray.com>"
 
diff --git a/lib/Test/WWW/Mechanize/Catalyst.pm b/lib/Test/WWW/Mechanize/Catalyst.pm
index 31d6cbd..6c56e6b 100644
--- a/lib/Test/WWW/Mechanize/Catalyst.pm
+++ b/lib/Test/WWW/Mechanize/Catalyst.pm
@@ -4,15 +4,16 @@ use Moose;
 
 use Carp qw/croak/;
 require Catalyst::Test; # Do not call import
+use Class::Load qw(load_class is_class_loaded);
 use Encode qw();
 use HTML::Entities;
 use Test::WWW::Mechanize;
 
 extends 'Test::WWW::Mechanize', 'Moose::Object';
 
-#use namespace::clean -execept => 'meta';
+#use namespace::clean -except => 'meta';
 
-our $VERSION = '0.58';
+our $VERSION = '0.59';
 our $APP_CLASS;
 my $Test = Test::Builder->new();
 
@@ -66,8 +67,8 @@ sub BUILD {
   unless ($ENV{CATALYST_SERVER}) {
     croak "catalyst_app attribute is required unless CATALYST_SERVER env variable is set"
       unless $self->has_catalyst_app;
-    Class::MOP::load_class($self->catalyst_app)
-      unless (Class::MOP::is_class_loaded($self->catalyst_app));
+    load_class($self->catalyst_app)
+      unless (is_class_loaded($self->catalyst_app));
   }
 }
 
@@ -175,7 +176,7 @@ sub _do_catalyst_request {
         Catalyst::Test::local_request($self->{catalyst_app}, $request);
 
 
-    # LWP would normally do this, but we dont get down that far.
+    # LWP would normally do this, but we don't get down that far.
     $response->request($request);
 
     return $response
@@ -184,7 +185,7 @@ sub _do_catalyst_request {
 sub _check_external_request {
     my ($self, $request) = @_;
 
-    # If there's no host then definatley not an external request.
+    # If there's no host then definitley not an external request.
     $request->uri->can('host_port') or return;
 
     if ( $self->allow_external && $request->uri->host_port ne 'localhost:80' ) {
@@ -241,8 +242,8 @@ sub import {
   my ($class, $app) = @_;
 
   if (defined $app) {
-    Class::MOP::load_class($app)
-      unless (Class::MOP::is_class_loaded($app));
+    load_class($app)
+      unless (is_class_loaded($app));
     $APP_CLASS = $app; 
   }
 
@@ -544,7 +545,7 @@ L<Test::WWW::Mechanize>, L<WWW::Mechanize>.
 
 =head1 AUTHOR
 
-Ash Berlin C<< <ash at cpan.org> >> (current maintiner)
+Ash Berlin C<< <ash at cpan.org> >> (current maintainer)
 
 Original Author: Leon Brocard, C<< <acme at astray.com> >>
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtest-www-mechanize-catalyst-perl.git



More information about the Pkg-perl-cvs-commits mailing list