Permalink
Browse files

Build.PL: need Time::HiRes for testing. Command/*.pm remove ${NAME} w…

…hich doesn't work with plain POD and remove here string interpolation.
  • Loading branch information...
1 parent 9c10fb7 commit 5c19e610265f2f54322c0de42f1e11e99d844079 Rocky Bernstein committed Jan 21, 2013
View
@@ -57,6 +57,7 @@ my $builder = Module::Build->new(
},
test_requires => {
'Test::More' => '0.81',
+ 'Time::HiRes' => '1.9725',
'rlib' => '0.02',
},
recommends => {
@@ -1,5 +1,5 @@
# -*- coding: utf-8 -*-
-# Copyright (C) 2011-2012 Rocky Bernstein <rocky@cpan.org>
+# Copyright (C) 2011-2013 Rocky Bernstein <rocky@cpan.org>
use warnings; no warnings 'redefine';
use rlib '../../../..';
@@ -28,7 +28,7 @@ our $NAME = set_name();
our $HELP = <<'HELP';
=pod
-action I<position> I<Perl-statement>
+B<action> I<position> I<Perl-statement>
Set an action to be done before the line is executed. If line is
C<.>, set an action on the line about to be executed. The sequence
@@ -53,7 +53,7 @@ For example, this will print out the value of C<$foo> every time line
=head2 Examples:
- ${NAME} 53 print "DB FOUND $foo\n"
+ action 53 print "DB FOUND $foo\n"
See also C<help breakpoints>.
=cut
@@ -1,5 +1,5 @@
# -*- coding: utf-8 -*-
-# Copyright (C) 2011-2012 Rocky Bernstein <rocky@cpan.org>
+# Copyright (C) 2011-2013 Rocky Bernstein <rocky@cpan.org>
use warnings; no warnings 'redefine';
use rlib '../../../..';
@@ -25,17 +25,17 @@ use strict; use vars qw(@ISA); @ISA = @CMD_ISA;
use vars @CMD_VARS; # Value inherited from parent
our $NAME = set_name();
-our $HELP = <<"HELP";
+our $HELP = <<'HELP';
=pod
-${NAME} I<Perl-expression>
+B<display> I<Perl-expression>
Print value of expression I<Perl-expression> each time the program stops.
=head2 Examples:
- ${NAME} \$a # Display variable \$a each time we enter debugger
- ${NAME} join(', ', \@ARGV) # show values of array \@ARGV
+ display $a # Display variable \$a each time we enter debugger
+ display join(', ', @ARGV) # show values of array @ARGV
If what you want to do is evaluate a Perl expression or statement once
rather than every time the program stops, see C<eval>.
@@ -23,26 +23,26 @@ our @ISA = @CMD_ISA; # value inherited from parent
use vars @CMD_VARS; # value inherited from parent
our $NAME = set_name();
-our $HELP = <<"HELP";
+our $HELP = <<'HELP';
=pod
-${NAME} [[I<file>] [I<line>]]
+B<edit> [[I<file>] [I<line>]]
With no argument, edits file containing most recent line listed.
The value of the environment variable I<EDITOR> is used for the
editor to run. If no I<EDITOR> environment variable is set /bin/ex
is used. The editor should support line and file positioning via
- editor-name +line file-name
+ editor-name +line file-name
(Most editors do.)
=head2 Examples:
- ${NAME} # Edit current location
- ${NAME} 7 # Edit current file at line 7
- ${NAME} test.rb # Edit test.rb, line 1
- ${NAME} test.rb 10 # Edit test.rb line 10
+ edit # Edit current location
+ edit 7 # Edit current file at line 7
+ edit test.rb # Edit test.rb, line 1
+ edit test.rb 10 # Edit test.rb line 10
=cut
HELP

0 comments on commit 5c19e61

Please sign in to comment.