[tapx-dev] [commit][215] One more Data::Dumper dependency

[andy at hexten.net]

Revision: 215
Author:   andy
Date:     2007-08-09 19:44:03 +0100 (Thu, 09 Aug 2007)

Log Message:
-----------
One more Data::Dumper dependency

Modified Paths:
--------------
    trunk/lib/TAP/Parser/Result.pm

Modified: trunk/lib/TAP/Parser/Result.pm
===================================================================
--- trunk/lib/TAP/Parser/Result.pm	2007-08-09 18:38:31 UTC (rev 214)
+++ trunk/lib/TAP/Parser/Result.pm	2007-08-09 18:44:03 UTC (rev 215)
@@ -71,13 +71,9 @@
     return bless $token => $class_for{$type}
       if exists $class_for{$type};
     require Carp;
-    require Data::Dumper;
-    $Data::Dumper::Indent = 1;
-    $Data::Dumper::Terse  = 1;
-    $token                = Data::Dumper::Dumper($token);
 
     # this should never happen!
-    Carp::croak("Could not determine class for\n$token");
+    Carp::croak("Could not determine class for\n$token->{type}");
 }
 
 =head2 Boolean methods
@@ -210,7 +206,7 @@
 
 sub has_directive {
     my $self = shift;
-    return ($self->has_todo || $self->has_skip) || '';
+    return ( $self->has_todo || $self->has_skip ) || '';
 }
 
 ##############################################################################
@@ -225,7 +221,7 @@
 
 =cut
 
-sub has_todo { 'TODO' eq (shift->{directive} || '') }
+sub has_todo { 'TODO' eq ( shift->{directive} || '' ) }
 
 ##############################################################################
 
@@ -239,6 +235,6 @@
 
 =cut
 
-sub has_skip { 'SKIP' eq (shift->{directive} || '') }
+sub has_skip { 'SKIP' eq ( shift->{directive} || '' ) }
 
 1;