lib/Net/HTTP/Spore/Role/Debug.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package Net::HTTP::Spore::Role::Debug;

use Moose::Role;

has trace => (
    is      => 'rw',
    isa     => 'Bool',
    lazy    => 1,
    default => sub { $ENV{SPORE_TRACE} ? 1 : 0; }
);

has handle => (
    is => 'rw', isa => 'Object',
);

sub _trace_msg {
    my $self = shift;
    print STDOUT $_[0]."\n" if $self->trace;
}

1;