aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/Zinc/TraceErrors.pm54
1 files changed, 54 insertions, 0 deletions
diff --git a/Perl/Zinc/TraceErrors.pm b/Perl/Zinc/TraceErrors.pm
index a56586c..b88b5f4 100644
--- a/Perl/Zinc/TraceErrors.pm
+++ b/Perl/Zinc/TraceErrors.pm
@@ -92,4 +92,58 @@ sub Tk::Zinc::WidgetMethod {
1;
+__END__
+
+=head1 NAME
+
+Tk::Zinc::TraceErrors - A module to trace all Tk::Zinc method calls which generate an error
+
+=head1 SYNOPSIS
+
+use Tk::Zinc::TraceErrors;
+
+or
+
+perl -MTk::Zinc::TraceErrors YourZincBasedScript.pl
+
+=head1 DESCRIPTION
+
+When loaded, this module overloads a Tk mechanism so that every
+Tk::Zinc method call will be traced if it provokes an error. The execution
+will then continue.
+
+This module can be very effective for debugging and application, specially
+when Tk gives an unusuable error message such as ".... errors in Tk.pm line 228"
+
+=over 6
+
+=item * the source filename where the method has been invoked
+
+=item * the line number in the source file
+
+=item * the TkZinc method name
+
+=item * the list of arguments in a human-readable form
+
+=item * the error message
+
+=back
+
+=head1 AUTHOR
+
+D.Etienne <etienne@cena.fr> and C.Mertz <mertz@cena.fr>
+
+=head1 CAVEAT
+
+This module cannot be used when Tk::Zinc::Trace is already in use.
+
+=head1 COPYRIGHT
+
+See Tk::Zinc copyright; LGPL
+
+=head1 SEE ALSO
+
+L<Tk::Zinc(3pm)>, L<Tk::Zinc::Trace(3pm)>. L<Tk::Zinc::Debug(3pm)>.
+
+=cut