From 09f0ab1ad92241bf703f20eb660f83ba8da24be8 Mon Sep 17 00:00:00 2001 From: niko Date: Thu, 17 Mar 2011 14:01:01 +0100 Subject: set a default value to 0 for trace attribute in debug role --- lib/Net/HTTP/Spore/Role/Debug.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Net/HTTP/Spore/Role/Debug.pm b/lib/Net/HTTP/Spore/Role/Debug.pm index e2d2fa1..e229229 100644 --- a/lib/Net/HTTP/Spore/Role/Debug.pm +++ b/lib/Net/HTTP/Spore/Role/Debug.pm @@ -9,10 +9,10 @@ has trace => ( lazy => 1, default => sub { my $self = shift; - my $trace_env = $ENV{SPORE_TRACE}; - my @stack = caller; use YAML; warn Dump \@stack; + my $trace_env = $ENV{SPORE_TRACE} || 0; + #my @stack = caller; use YAML; warn Dump \@stack; my ($fh, $level); - if ( defined($trace_env) && ( $trace_env =~ /(\d)=(.+)$/ ) ) { + if ( $trace_env =~ /(\d)=(.+)$/ ) { $level = $1; $fh = IO::File->new( $2, 'w' ) or die("Cannot open trace file $1"); -- cgit 1.4.1