—

              
package GraphQL::Debug;
use 5.014;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT_OK = qw(_debug);
HideShow 20 lines of Pod
=head1 NAME
GraphQL::Debug - debug GraphQL
=cut
=head1 SYNOPSIS
  use GraphQL::Debug qw(_debug);
  use constant DEBUG => $ENV{GRAPHQL_DEBUG};
  DEBUG and _debug('current_function', $value1, $value2);
=head1 DESCRIPTION
Creates debugging output when called. Intended to have its calls optimised
out when debugging not sought, using the construct shown above. The
values given will be passed through L<Data::Dumper/Dumper>.
=cut
# TODO make log instead of diag
sub _debug {
  my $func = shift;
  require Test::More;
  Test::More::diag("$func: ", Test::More::explain(@_ == 1 ? @_ : [ @_ ]));
}
1;