view release on metacpan or  search on metacpan

lib/Devel/Agent.pm  view on Meta::CPAN

=cut

has save_to_stack=>(
# isa=>Bool,
  is=>'rw',
  default=>0,
);

=item * on_frame_end=>CodeRef

This code ref is called when a frame is closed.  This should act as the default data streaming hook callback.  All tracing operations are halted durriong this callback.

Example:

  sub {
    my ($self,$last)=@_;

    # $self: An instance of DB
    # $last: The most currently closed frame
  }

t/Devel-Agent.t  view on Meta::CPAN

    }
    sub write_chunk {
      my ($writer,$id)=@_;
      my $line="Line: $id\n";
      $check .=$line;
      $writer->write($line);
    }
    my $test = Plack::Test->create(\&test_app);
    my $get=GET '/';
    my $res=$test->request($get);
    cmp_ok($res->code,'==',200,'establish a base line that our hello world streaming app is working');
    cmp_ok($res->content,'eq',$check,'ensure that our content is not corrupted');

    
    $DB::AGENT=undef;
    {
    no warnings;
    # force a trace every reqest
    $Plack::Middleware::Devel::Agent::Plack::TRACE_EVERY=1;
    $Plack::Middleware::Devel::Agent::Plack::AGENT_OPTIONS{save_to_stack}=0;
    $Plack::Middleware::Devel::Agent::Plack::AGENT_OPTIONS{on_frame_end}=sub {