Compare commits
1 Commits
cpan_path/
...
ASH
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
46bb37363c |
3
Changes
3
Changes
@@ -1,2 +1,5 @@
|
||||
0.02 Mon, 06 Apr 2009 22:28:52 +0100
|
||||
* Doc improvmens (Ash Berlin, spurned on by Jon Rockway)
|
||||
|
||||
0.01 Thu, 26 Feb 2009 14:31:40 +0100
|
||||
* Initial release.
|
||||
|
||||
5
META.yml
5
META.yml
@@ -1,8 +1,9 @@
|
||||
---
|
||||
abstract: read-eval-print-loop for debugging your Catalyst application
|
||||
author:
|
||||
- Tomas Doram <bobtfish@bobtfish.net>
|
||||
- Tomas Doran <bobtfish@bobtfish.net>
|
||||
- Florian Ragwitz <rafl@debian.org>
|
||||
- Ash Berlin <ash@cpan.org>
|
||||
generated_by: Dist::Zilla::Plugin::MetaYaml version 1.004
|
||||
license: perl
|
||||
name: CatalystX-REPL
|
||||
@@ -10,4 +11,4 @@ requires:
|
||||
Carp::REPL: 0
|
||||
Catalyst: 5.800006
|
||||
namespace::clean: 0
|
||||
version: 0.01
|
||||
version: 0.02
|
||||
|
||||
@@ -7,9 +7,9 @@ use ExtUtils::MakeMaker;
|
||||
WriteMakefile(
|
||||
DISTNAME => 'CatalystX-REPL',
|
||||
NAME => 'CatalystX::REPL',
|
||||
AUTHOR => 'Tomas\ Doram\ \<bobtfish\@bobtfish\.net\>\,\ Florian\ Ragwitz\ \<rafl\@debian\.org\>',
|
||||
AUTHOR => 'Tomas\ Doran\ \<bobtfish\@bobtfish\.net\>\,\ Florian\ Ragwitz\ \<rafl\@debian\.org\>\,\ Ash\ Berlin\ \<ash\@cpan\.org\>',
|
||||
ABSTRACT => 'read-eval-print-loop for debugging your Catalyst application',
|
||||
VERSION => '0.01',
|
||||
VERSION => '0.02',
|
||||
EXE_FILES => [ qw() ],
|
||||
(eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
|
||||
PREREQ_PM => {
|
||||
|
||||
2
README
2
README
@@ -1,7 +1,7 @@
|
||||
|
||||
|
||||
This archive contains the distribution CatalystX-REPL, version
|
||||
0.01:
|
||||
0.02:
|
||||
|
||||
read-eval-print-loop for debugging your Catalyst application
|
||||
|
||||
|
||||
5
dist.ini
5
dist.ini
@@ -1,7 +1,8 @@
|
||||
name = CatalystX-REPL
|
||||
version = 0.01
|
||||
author = Tomas Doram <bobtfish@bobtfish.net>
|
||||
version = 0.02
|
||||
author = Tomas Doran <bobtfish@bobtfish.net>
|
||||
author = Florian Ragwitz <rafl@debian.org>
|
||||
author = Ash Berlin <ash@cpan.org>
|
||||
license = Perl_5
|
||||
copyright_holder = Florian Ragwitz
|
||||
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
package CatalystX::REPL;
|
||||
our $VERSION = '0.01';
|
||||
our $VERSION = '0.02';
|
||||
|
||||
# ABSTRACT: read-eval-print-loop for debugging your Catalyst application
|
||||
|
||||
@@ -25,7 +25,7 @@ CatalystX::REPL - read-eval-print-loop for debugging your Catalyst application
|
||||
|
||||
=head1 VERSION
|
||||
|
||||
version 0.01
|
||||
version 0.02
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
@@ -33,6 +33,7 @@ version 0.01
|
||||
|
||||
use Moose;
|
||||
|
||||
# Requires Catalyst 5.8 series
|
||||
extends 'Catalyst';
|
||||
with 'CatalystX::REPL';
|
||||
|
||||
@@ -42,13 +43,40 @@ version 0.01
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
This role automatically sets up Carp::REPL after starting your application, if
|
||||
the C<CATALYST_REPL> or C<MYAPP_REPL> environment variabeles are set.
|
||||
Using L<Carp::REPL|Carp::REPL> with a Catalyst application is hard. That's
|
||||
because of all the internal exceptions that are being thrown and caught by
|
||||
Catalyst during application startup. You'd have to manually skip over all of
|
||||
those.
|
||||
|
||||
This role works around that by automatically setting up Carp::REPL after
|
||||
starting your application, if the C<CATALYST_REPL> or C<MYAPP_REPL> environment
|
||||
variables are set:
|
||||
|
||||
MYAPP_REPL=1 ./script/myapp_server.pl
|
||||
# Hit an action
|
||||
...
|
||||
|
||||
42 at lib/MyApp/Controller/Foo.pm line 8.
|
||||
|
||||
# instead of exiting, you get a REPL!
|
||||
Trace begun at lib/MyApp/Controller/Foo.pm line 8
|
||||
MyApp::Controller::Foo::bar('MyApp::Controller::Foo=HASH(0xc9fe20)', 'MyApp=HASH(0xcea6a4)') called at ...
|
||||
... # Many more lines of stack trace
|
||||
|
||||
$ $c
|
||||
MyApp=HASH(0xcea6ec)
|
||||
$ $c->req->uri
|
||||
http://localhost/foo/bar
|
||||
$
|
||||
|
||||
Carp::REPL uses L<Devel::REPL> for the shell, so direct any questions how how
|
||||
to use or customize the repl at that module.
|
||||
|
||||
=head1 AUTHORS
|
||||
|
||||
Tomas Doram <bobtfish@bobtfish.net>
|
||||
Tomas Doran <bobtfish@bobtfish.net>
|
||||
Florian Ragwitz <rafl@debian.org>
|
||||
Ash Berlin <ash@cpan.org>
|
||||
|
||||
=head1 COPYRIGHT AND LICENSE
|
||||
|
||||
@@ -57,3 +85,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.
|
||||
|
||||
=head1 SEE ALSO
|
||||
|
||||
L<Carp::REPL>
|
||||
|
||||
L<Devel::REPL>
|
||||
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
package TestApp;
|
||||
our $VERSION = '0.01';
|
||||
our $VERSION = '0.02';
|
||||
|
||||
|
||||
use Moose;
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
package TestApp::Controller::Foo;
|
||||
our $VERSION = '0.01';
|
||||
our $VERSION = '0.02';
|
||||
|
||||
|
||||
use Moose;
|
||||
|
||||
Reference in New Issue
Block a user