Commits

Shlomi Fish committed cacb459

remove more

  • Participants
  • Parent commits 3fdfc25

Comments (0)

Files changed (1)

 
 my $cdata = XML::LibXML::CDATASection->new('abc');
 
-test_rw(testA => $cd, $cdata);
+my $test = 'testA'; my $xml = $cd ; my $h2 = $cdata;
 
-sub test_rw
-{   my ($test, $xml, $h2) = @_;
+my $type = "{$TestNS}$test";
 
-    my $type = "{$TestNS}$test";
+# reader
 
-    # reader
+my $r = reader_create $schema, $test, $type;
 
-    my $r = reader_create $schema, $test, $type;
+my $h = $r->($xml);
 
-    my $h = $r->($xml);
+# Writer
 
-    # Writer
+my $writer = writer_create $schema, $test, $type;
 
-    my $writer = writer_create $schema, $test, $type;
+my $dupl;
+{ no strict; $dupl = eval Dumper $h2 }
 
-    my $dupl;
-    { no strict; $dupl = eval Dumper $h2 }
-
-    my $tree   = writer_test $writer, $dupl;
-}
+my $tree   = writer_test $writer, $dupl;