Yet Another CPAN Grep

FirePHP-Dispatcher ( W/WI/WILLERT/FirePHP-Dispatcher-0.02_01.tar.gz, WILLERT, 2009; MetaCPAN )

FirePHP-Dispatcher/lib/FirePHP/Dispatcher.pm ( view source; MetaCPAN )

 Carp;
use Scalar::Util qw/looks_like_number blessed/;
use JSON::Any;


__PACKAGE__->mk_accessors(
  qw/http_headers message_index stash json group_stack/
);


=head1 GENERAL METHODS

=head2 $class->n

tp_headers,
    message_index => 0,
    group_stack   => [],
    stash         => {},
    json          => JSON::Any->new(),
  });
}


=head2 $self->finalize

Add the needed protocol headers and meta

x;

  $http->header(
    'X-Wf-Protocol-1'     => 'http://meta.wildfirehq.org/' .
      'Protocol/JsonStream/0.2',
    'X-Wf-1-Plugin-1'     => 'http://meta.firephp.org/' .
      'Wildfire/Plugin/Fire

FirePHP-Dispatcher ( W/WI/WILLERT/FirePHP-Dispatcher-0.02_01.tar.gz, WILLERT, 2009; MetaCPAN )

FirePHP-Dispatcher/lib/FirePHP/Log4perl/Layout.pm ( view source; MetaCPAN )

:Log4perl::Layout::PatternLayout/;

use Carp;
use Scalar::Util qw/looks_like_number blessed/;
use JSON::Any;


=head1 METHODS

=head2 $class->new

Returns: a FirePHP compatible L<Log::Log4perl::Layout

my $self = $this->SUPER::new( @_ );
  $self->{info_needed}{$_} = 1 for qw/F L M l/;
  $self->{json} = JSON::Any->new;
  return $self;
}

# unfortunately this had to be lifted almost verbatim from
# Lo

h = (
    Type => $type,
    File => $info{F},
    Line => $info{L},
  );

  return $self->{json}->objToJson(
    [ \%info_hash, $rendered_message ]
  );
}


1;

__END__


=head1 SEE ALSO

L<http://ww