From 40680f3e638f83b5ae2f5713d94b753917ab85a4 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 12 Jun 2013 21:22:42 -0500
Subject: docs

---
 lib/Carp/Reply.pm             | 127 ++++++++++++++++++++++++++++++++++++++++++
 lib/Reply/Plugin/CarpReply.pm |  16 ++++++
 2 files changed, 143 insertions(+)

diff --git a/lib/Carp/Reply.pm b/lib/Carp/Reply.pm
index 71a62d9..bee40fb 100644
--- a/lib/Carp/Reply.pm
+++ b/lib/Carp/Reply.pm
@@ -6,12 +6,97 @@ use warnings;
 use Reply;
 use Reply::Config;
 
+=head1 SYNOPSIS
+
+  perl -MCarp::Reply script.pl
+
+or
+
+  use Carp::Reply ();
+
+  sub foo {
+      # ...
+      Carp::Reply::repl();
+      # ...
+  }
+
+=head1 DESCRIPTION
+
+Carp::Reply provides a repl to use within an already running program, which can
+introspect the current state of the program, including the call stack and
+current lexical variables. It works just like L<Reply>, with the addition of
+some commands to move around in the call stack.
+
+The lexical environment is set to the lexical environment of the current stack
+frame (and is updated when you use any of the commands which move around the
+stack frames).
+
+Carp::Reply also installs a C<__DIE__> handler which automatically launches a
+repl when an exception is thrown. You can suppress this behavior by passing an
+empty import list, either via C<use Carp::Reply ();> or C<perl -mCarp::Reply>.
+
+=head1 COMMANDS
+
+=over 4
+
+=item #backtrace
+
+(Aliases: #trace, #bt)
+
+Displays a backtrace from the location where the repl was invoked. This is run
+automatically when the repl is first launched.
+
+=item #top
+
+(Aliases: #t)
+
+Move to the top of the call stack (the outermost call level).
+
+=item #bottom
+
+(Aliases: #b)
+
+Move to the bottom of the call stack (where the repl was invoked).
+
+=item #up
+
+(Aliases: #u)
+
+Move up one level in the call stack.
+
+=item #down
+
+(Aliases: #d)
+
+Move down one level in the call stack.
+
+=item #list
+
+(Aliases: #l)
+
+Displays a section of the source code around the current stack frame. The
+current line is marked with a C<*>.
+
+=item #env
+
+Displays the current lexical environment.
+
+=back
+
+=cut
+
 sub import {
     my $package = shift;
 
     $SIG{__DIE__} = sub { print $_[0]; repl() };
 }
 
+=function repl
+
+Invokes a repl at the current point of execution.
+
+=cut
+
 sub repl {
     my $repl = Reply->new(
         config  => Reply::Config->new,
@@ -21,4 +106,46 @@ sub repl {
     $repl->run;
 }
 
+=head1 BUGS
+
+No known bugs.
+
+Please report any bugs through RT: email
+C<bug-carp-reply at rt.cpan.org>, or browse to
+L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Reply>.
+
+=head1 SEE ALSO
+
+L<Carp::REPL>
+
+=head1 SUPPORT
+
+You can find this documentation for this module with the perldoc command.
+
+    perldoc Carp::Reply
+
+You can also look for information at:
+
+=over 4
+
+=item * MetaCPAN
+
+L<https://metacpan.org/release/Carp-Reply>
+
+=item * RT: CPAN's request tracker
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Carp-Reply>
+
+=item * Github
+
+L<https://github.com/doy/carp-reply>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/Carp-Reply>
+
+=back
+
+=cut
+
 1;
diff --git a/lib/Reply/Plugin/CarpReply.pm b/lib/Reply/Plugin/CarpReply.pm
index e4f5330..219121f 100644
--- a/lib/Reply/Plugin/CarpReply.pm
+++ b/lib/Reply/Plugin/CarpReply.pm
@@ -6,6 +6,22 @@ use base 'Reply::Plugin';
 
 use Devel::StackTrace::WithLexicals;
 
+=head1 SYNOPSIS
+
+  Reply->new(plugins => ['CarpReply'])->run;
+
+=head1 DESCRIPTION
+
+This plugin implements the L<Reply> shell commands to support L<Carp::Reply>'s
+behavior. It currently isn't incredibly useful on its own as part of a config
+file, but can be useful if you want more control over creating a
+Carp::Reply-like shell.
+
+See the L<Carp::Reply> docs for a description of the commands provided by this
+plugin.
+
+=cut
+
 sub new {
     my $class = shift;
 
-- 
cgit v1.2.3