Commits

Shlomi Fish committed bb3225e

Remove more

  • Participants
  • Parent commits 2895ce1

Comments (0)

Files changed (1)

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