Line 16:
      verbose => $arg{verbose} ? '' : "\n",
++ 	  params => $arg{params} ? 1 : 0,

Line 31:
--  my( $direction, $pkg, $sym ) = @_;
++  my( $direction, $pkg, $sym , $start) = @_;

Line 37:
--      $pkg, $sym, $self->{verbose},
++      $pkg, $sym, 
++	  ( $start && $self->{params} ? "( '".join( "', '", @_[0..$#_-1])."')" : ()),
++      $self->{verbose},

Line 85:
--          pre => $self->_gen_wrapper( $self->{pre}, $pkg, $sym, ),
--          post => $self->_gen_wrapper( $self->{post}, $pkg, $sym, );
++          pre => $self->_gen_wrapper( $self->{pre}, $pkg, $sym, 1 ),
++          post => $self->_gen_wrapper( $self->{post}, $pkg, $sym, 0 );