diff --git a/Changes b/Changes index 0276b9e..788a08e 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,7 @@ +0.04 Tue, 11 Aug 2009 05:59:35 +0200 + * Fix test failures with recent versions of Class::MOP. + * Switch from namespace::clean to namespace::autoclean. + 0.03 Fri, 10 Apr 2009 01:47:22 +0200 * Allow passing options to Carp::REPL. diff --git a/LICENSE b/LICENSE index fafab5b..8215097 100644 --- a/LICENSE +++ b/LICENSE @@ -1,9 +1,9 @@ This software is copyright (c) 2009 by Florian Ragwitz. This is free software; you can redistribute it and/or modify it under -the same terms as perl itself. +the same terms as the Perl 5 programming language system itself. -Terms of Perl itself +Terms of the Perl programming language system itself a) the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any diff --git a/MANIFEST b/MANIFEST index c603fe4..fb619c1 100644 --- a/MANIFEST +++ b/MANIFEST @@ -9,4 +9,6 @@ lib/CatalystX/REPL.pm t/basic.t t/lib/TestApp.pm t/lib/TestApp/Controller/Foo.pm +t/release-pod-coverage.t +t/release-pod-syntax.t t/request.pl \ No newline at end of file diff --git a/META.yml b/META.yml index c271df4..8f7206e 100644 --- a/META.yml +++ b/META.yml @@ -1,14 +1,17 @@ ---- -abstract: read-eval-print-loop for debugging your Catalyst application -author: - - Tomas Doran - - Florian Ragwitz - - Ash Berlin -generated_by: Dist::Zilla::Plugin::MetaYaml version 1.004 +--- +abstract: 'read-eval-print-loop for debugging your Catalyst application' +author: + - 'Tomas Doran ' + - 'Florian Ragwitz ' + - 'Ash Berlin ' +generated_by: 'Dist::Zilla::Plugin::MetaYAML version 1.092200' license: perl +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 name: CatalystX-REPL -requires: +requires: Carp::REPL: 0 Catalyst: 5.800006 - namespace::clean: 0 -version: 0.03 + namespace::autoclean: 0 +version: 0.04 diff --git a/Makefile.PL b/Makefile.PL index 24e4ca1..9d76326 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -8,12 +8,12 @@ WriteMakefile( DISTNAME => 'CatalystX-REPL', NAME => 'CatalystX::REPL', AUTHOR => 'Tomas\ Doran\ \\,\ Florian\ Ragwitz\ \\,\ Ash\ Berlin\ \', - ABSTRACT => 'read-eval-print-loop for debugging your Catalyst application', - VERSION => '0.03', + ABSTRACT => 'read\-eval\-print\-loop\ for\ debugging\ your\ Catalyst\ application', + VERSION => '0.04', EXE_FILES => [ qw() ], - (eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()), + (eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()), PREREQ_PM => { - "namespace::clean" => '0', + "namespace::autoclean" => '0', "Catalyst" => '5.800006', "Carp::REPL" => '0', }, diff --git a/README b/README index 1b8b0dd..024b51f 100644 --- a/README +++ b/README @@ -1,12 +1,12 @@ This archive contains the distribution CatalystX-REPL, version -0.03: +0.04: read-eval-print-loop for debugging your Catalyst application This software is copyright (c) 2009 by Florian Ragwitz. This is free software; you can redistribute it and/or modify it under -the same terms as perl itself. +the same terms as the Perl 5 programming language system itself. diff --git a/dist.ini b/dist.ini index e34da44..791514e 100644 --- a/dist.ini +++ b/dist.ini @@ -1,5 +1,5 @@ name = CatalystX-REPL -version = 0.03 +version = 0.04 author = Tomas Doran author = Florian Ragwitz author = Ash Berlin @@ -7,7 +7,7 @@ license = Perl_5 copyright_holder = Florian Ragwitz [Prereq] -namespace::clean = 0 +namespace::autoclean = 0 Carp::REPL = 0 Catalyst = 5.800006 @@ -16,4 +16,4 @@ bundle = @Classic remove = PodVersion remove = BumpVersion -[PodWeaver] +[PodPurler] diff --git a/lib/CatalystX/REPL.pm b/lib/CatalystX/REPL.pm index a954be6..2d66c9e 100644 --- a/lib/CatalystX/REPL.pm +++ b/lib/CatalystX/REPL.pm @@ -1,5 +1,5 @@ package CatalystX::REPL; -our $VERSION = '0.03'; +our $VERSION = '0.04'; # ABSTRACT: read-eval-print-loop for debugging your Catalyst application @@ -7,10 +7,21 @@ use Moose::Role; use Carp::REPL (); use Catalyst::Utils; -use namespace::clean -except => 'meta'; +use namespace::autoclean; -after setup_finalize => sub { +# Normally we'd hook into setup_finalize, but unfortunately for us Class::MOP +# localizes $SIG{__DIE__}, which Carp::REPL relies on, during load_class. That +# way the die handler will only be set up between between finishing setup and +# until after the run time of MyApp.pm ends, when MyApp is loaded with +# load_class, which it often is, for example in Catalyst::Test. Because of that +# we hook in at the start of each request and install our handler. This isn't +# too bad. After all, we're a debugging only tool. We could play some tricks to +# do this only once, before the first request and avoid reinstalling the +# handler on every subsequent request, but given we're a role, and we don't +# have a MyApp instance to store attributes in, we don't even try. + +before prepare => sub { my ($self) = @_; if (my $repl_options = Catalyst::Utils::env_value($self, 'repl')) { Carp::REPL->import(split q{,}, $repl_options); @@ -20,13 +31,16 @@ after setup_finalize => sub { 1; __END__ + +=pod + =head1 NAME CatalystX::REPL - read-eval-print-loop for debugging your Catalyst application =head1 VERSION -version 0.03 +version 0.04 =head1 SYNOPSIS @@ -78,6 +92,14 @@ seperated by commas, into the environment variable: Carp::REPL uses L for the shell, so direct any questions how how to use or customize the repl at that module. +=head1 SEE ALSO + +L + +L + + + =head1 AUTHORS Tomas Doran @@ -89,11 +111,8 @@ to use or customize the repl at that module. This software is copyright (c) 2009 by Florian Ragwitz. This is free software; you can redistribute it and/or modify it under -the same terms as perl itself. +the same terms as the Perl 5 programming language system itself. -=head1 SEE ALSO +=cut -L - -L diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm index 4188ba6..b9290a4 100644 --- a/t/lib/TestApp.pm +++ b/t/lib/TestApp.pm @@ -1,5 +1,5 @@ package TestApp; -our $VERSION = '0.03'; +our $VERSION = '0.04'; use Moose; diff --git a/t/lib/TestApp/Controller/Foo.pm b/t/lib/TestApp/Controller/Foo.pm index 560baec..97e4bb1 100644 --- a/t/lib/TestApp/Controller/Foo.pm +++ b/t/lib/TestApp/Controller/Foo.pm @@ -1,5 +1,5 @@ package TestApp::Controller::Foo; -our $VERSION = '0.03'; +our $VERSION = '0.04'; use Moose; diff --git a/t/release-pod-coverage.t b/t/release-pod-coverage.t new file mode 100644 index 0000000..f8b3ebd --- /dev/null +++ b/t/release-pod-coverage.t @@ -0,0 +1,21 @@ +#!perl + +BEGIN { + unless ($ENV{RELEASE_TESTING}) { + require Test::More; + Test::More::plan(skip_all => 'these tests are for release candidate testing'); + } +} + + +use Test::More; + +eval "use Test::Pod::Coverage 1.08"; +plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage" + if $@; + +eval "use Pod::Coverage::TrustPod"; +plan skip_all => "Pod::Coverage::TrustPod required for testing POD coverage" + if $@; + +all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' }); \ No newline at end of file diff --git a/t/release-pod-syntax.t b/t/release-pod-syntax.t new file mode 100644 index 0000000..ba4e570 --- /dev/null +++ b/t/release-pod-syntax.t @@ -0,0 +1,15 @@ +#!perl + +BEGIN { + unless ($ENV{RELEASE_TESTING}) { + require Test::More; + Test::More::plan(skip_all => 'these tests are for release candidate testing'); + } +} + +use Test::More; + +eval "use Test::Pod 1.00"; +plan skip_all => "Test::Pod 1.00 required for testing POD" if $@; + +all_pod_files_ok(); \ No newline at end of file diff --git a/t/request.pl b/t/request.pl index f037732..a3ff23d 100644 --- a/t/request.pl +++ b/t/request.pl @@ -1,13 +1,11 @@ use strict; use warnings; -BEGIN { @ENV{qw/CATALYST_DEBUG CATALYST_REPL/} = (1, 1); } +BEGIN { @ENV{qw/CATALYST_REPL/} = 'noprofile'; } use FindBin; use lib "$FindBin::Bin/lib"; use Catalyst::Test 'TestApp'; -$Carp::REPL::noprofile = 1; - request($ARGV[0]);