Use accessors instead of reaching down object guts

diff --git a/t/04file,fh,string.t b/t/04file,fh,string.t
index 7e4d7b0..9121412 100644 (file)
--- a/t/04file,fh,string.t
+++ b/t/04file,fh,string.t
@@ -37,8 +37,7 @@ my ($v1, $v2);
 }
 
 # XXX- Hack to remove Graph hack!
-delete $v1->{translator};
-delete $v2->{translator};
+$_->translator (undef) for ($v1, $v2);
 
 ok(length $v1, "passing string (filename) works");
 ok(length $v2, "passing string as SCALAR reference");

diff --git a/t/07p_args.t b/t/07p_args.t
index 988987b..51ffbec 100644 (file)
--- a/t/07p_args.t
+++ b/t/07p_args.t
@@ -46,7 +46,7 @@ is(scalar @fields, 4, "right number of fields");
 #
 # Blow away the existing schema object.
 #
-$tr->{'schema'} = undef;
+$tr->schema (undef);
 
 # Now, pass parser_args indirectly...
 $tr->parser(\&silly_parser, { delimiter => "\t" });