File Coverage

blib/lib/PerlGuard/Agent/Output/StandardError.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch	0	2	0.0
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	22	36.3

# Output method purely for testing some concepts on the agent before implementing the server

package PerlGuard::Agent::Output::StandardError;
use Moo;
extends 'PerlGuard::Agent::Output';

# Takes a profile object and saves it
sub save {
  my $self = shift;
  my $profile = shift;

  return unless $profile->should_save();

  use Data::Dumper;

  print STDERR "======\n";
  print STDERR "Profiler ID " . $profile->uuid() . "\n";
  print STDERR "Total elapsed time " . $profile->total_elapsed_time() . "\n";
  print STDERR Dumper $profile->database_transactions();
  print STDERR "======\n";
}

sub flush {
  #noop
}


1;