1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
#!perl
BEGIN {
$ENV{CATALYST_ENGINE} ||= 'HTTP';
$ENV{CATALYST_SCRIPT_GEN} = 27;
}
use strict;
use FindBin;
use lib 'lib';
use Devel::ebug;
use Devel::ebug::HTTP;
my $port = 8321;
my $filename = shift;
die "Usage: ebug_http filename\n" unless $filename;
my $ebug = Devel::ebug->new();
$ebug->program($filename);
$ebug->load;
$Devel::ebug::HTTP::ebug = $ebug;
#$^O =~ /mswin32/i and system("start http://localhost:$port/#top");
#$^O =~ /darwin/i and system("open http://localhost:$port/#top &");
Devel::ebug::HTTP->run($port);
1;
__END__
=head1 NAME
ebug_http - A simple, extensible web Perl debugger
=head1 SYNOPSIS
% ebug_http calc.pl
=head1 DESCRIPTION
ebug is a web-based front end to L<Devel::ebug>. It is a simple Perl
debugger. When run, it will report back how to contact its front page.
=head1 SEE ALSO
L<Devel::ebug>
=head1 AUTHOR
Leon Brocard, C<< <acme@astray.com> >>
=head1 COPYRIGHT
Copyright (C) 2005, Leon Brocard
This program is free software; you can redistribute it or modify it
under the same terms as Perl itself.
|
