Commits

Shlomi Fish committed 3a69430

Remove more

Comments (0)

Files changed (1)

 
 my @compile_defaults;
 
-# not using pack_type, which avoids a recursive dependency to XML::Compile
-sub _reltype_to_abs($) { $_[0] }
-
 sub reader_create
 {   my ($schema, $test, $reltype) = @_;
 
-    my $type   = _reltype_to_abs $reltype;
     my $read_t = $schema->compile
-     ( READER             => $type
+     ( READER             => $reltype
      , check_values       => 1
      , include_namespaces => 0
      , @compile_defaults
 
 sub writer_create
 {   my ($schema, $test, $reltype) = @_;
-    my $type   = _reltype_to_abs $reltype;
 
     my $write_t = $schema->compile
-     ( WRITER                => $type
+     ( WRITER                => $reltype
      , check_values          => 1
      , include_namespaces    => 0
      , use_default_namespace => 1