package HTTP::Engine::FirePHP::Dispatcher;
use strict;
use warnings;
our $VERSION = '0.02';
use base qw(FirePHP::Dispatcher);
sub send_headers {
my $self = shift;
$self->SUPER::send_headers(@_);
$self->finalize;
}
sub rollback_last_message {
my $self = shift;
$self->SUPER::rollback_last_message(@_);
$self->finalize;
}
sub start_group {
my $self = shift;
$self->SUPER::start_group(@_);
$self->finalize;
}
sub end_group {
my $self = shift;
$self->SUPER::end_group(@_);
$self->finalize;
}
1;
__DATA__
=head1 NAME
HTTP::Engine::FirePHP::Dispatcher - An extension of FirePHP::Dispatcher
=head1 SYNOPSIS
# None - this class is used by L<HTTP::Engine::FirePHP>. You should not
# need to use it directly.
=head1 DESCRIPTION
This class extends L<FirePHP::Dispatcher> so that after headers are
manipulated, C<finalize()> is called. That way the developer who wants to log
to FirePHP doesn't have to worry about administrativa. The performance impact
is minimal, especially since FirePHP will be used only during debugging. Also,
calling C<finalize()> several times does not alter the result - there
aren't duplicate headers or something like that.
=head1 METHODS
=over 4
=item send_headers()
=item rollback_last_message()
=item start_group()
=item end_group()
Like the superclass' methods, except they also call C<finalize()> afterwards.
=back
=head1 BUGS AND LIMITATIONS
No bugs have been reported.
Please report any bugs or feature requests through the web interface at
L<http://rt.cpan.org>.
=head1 INSTALLATION
See perlmodinstall for information and options on installing Perl modules.
=head1 AVAILABILITY
The latest version of this module is available from the Comprehensive Perl
Archive Network (CPAN). Visit L<http://www.perl.com/CPAN/> to find a CPAN
site near you. Or see L<http://www.perl.com/CPAN/authors/id/M/MA/MARCEL/>.
The development version lives at
L<http://github.com/hanekomu/http-engine-firephp/>. Instead of sending
patches, please fork this project using the standard git and github
infrastructure.
=head1 AUTHORS
Marcel GrE<uuml>nauer, C<< <marcel@cpan.org> >>
=head1 COPYRIGHT AND LICENSE
Copyright 2009 by Marcel GrE<uuml>nauer
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut